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Abstract 

This  thesis  explores  a  new  approach  to  the  recognition  of  tactical  targets  using  a 
multifunction  laser  radar  sensor.  Targets  of  interest  were  tanks,  jeeps,  and  trucks. 
Doppler  images  were  segmented  and  overlaided  onto  a  relative  range  image.  The  resul¬ 
tant  shapes  were  then  transformed  into  a  position,  scale,  and  rotation  invariant  (PSR1) 
feature  space.  The  classifiation  process  used  the  correlation  peak  of  the  template  PSR1 
space  and  the  target  PSRI  space  as  features.  Two  classification  methods  were  imple¬ 
mented:  a  classical  distance  measurement  approach  and  a  new  biologically-based  neural 
network  multilayer  perceptron  architecture. 

Both  methods  demonstrated  classification  rates  near  100%  with  a  true  rotation 
invariance  demonstrated  up  to  20  degrees.  Neural  networks  were  shown  to  have  a  dis¬ 
tinct  advantage  in  a  robust  environment  and  when  a  figure  of  merit  criteria  was  applied. 

A  space  domain  correlation  was  developed  using  local  normalization  and  multistage 
processing  to  locate  and  classify  targets  in  high  clutter  and  with  partially  occluded  tar- 


I.  Introduction 


1.1  Purpose 


For  the  purpose  of  this  research  effort,  the  process  of  target  recognition  is  a  two¬ 
fold  process  of  classifying  and  locating  a  target.  The  classification  process  answers  the 
question:  "Is  there  something  in  the  input  scene  that  matches  what  I’m  looking  for." 
The  locating  process  answers  the  question  of  "Where  in  the  input  scene  is  the  thing  I’m 
looking  for."  The  usefulness  of  target  recognition  is  well  documented  but  a  truly  auto¬ 
nomous  system  is  still  unavailable.  The  focus  of  this  research  effort  is  in  the  classifying 
area  with  a  small  section  devoted  to  the  locating  process.  The  classification  will  be  per¬ 
formed  in  a  feature  space  that  is  invariant  to  changes  in  position,  scale,  and  rotation. 
The  input  data  is  segmented  targets  containing  gray  scale  intensity  values  which  relate 
information  about  the  relative  range  or  depth  changes  of  the  target.  These  templates  now 
contain  3-D  information  about  the  target  which  results  in  more  classification  informa¬ 
tion.  The  classification  process  will  also  be  performed  on  binary  templates  to  determine 
if  the  method  of  classification  is  making  use  of  the  added  information  contained  in  the 
range  data. 

1.2  Background 

A  truly  useful  target  recognition  algorithm  makes  few  or  no  assumptions  on  the 
way  the  target  will  appear  in  a  given  scene. 

"  The  target  may  vary  in  size,  shape,  orientation,  and  illumination,  or  may 
even  be  partially  obstructed  by  other  objects.  As  a  result,  digital  pattern 
recognition  machines  require  complex  algorithms  for  managing  even  a  small 
number  of  the  infinite  possibilities  of  target  variations,  viewing  angles  and 
scene  clutter  that  may  be  encountered  in  a  typical  scene"[l  :2J. 

The  current  state  of  target  recognition  is  not  able  to  address  all  of  these  variations. 
However,  much  work  has  been  done  under  the  restriction  of  knowing  the  orientation  of 
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the  target  with  respect  to  out-of-plane  rotation[l;2;3;4;5;6]. 

An  algorithm  which  has  shown  promising  results  is  the  AFTT  algorithm.  The  AFIT 
algorithm  was  originally  proposed  by  Israeli  Air  Force  Major  Moshe  Horev  in  his  thesis, 
"Picture  Correlation  for  Automatic  Machine  Recognition"  [4],  and  later  implemented  on 
a  VAX  computer  by  Kobel  and  Martin  [1],  The  AFIT  algorithm  works  on  the  assump¬ 
tion  that  we  already  know  that  the  target  is  within  the  input  scene.  It  therefore  deter¬ 
mines  the  scale  and  rotation  of  the  target  in  order  to  correlate  and  locate  the  target. 
Kobel  and  Martin  fully  implemented  the  AFTT  algorithm  and  tested  it  using  visual 
information.  Results  showed  that  the  algorithm  works  when  the  dimensions  of  the 
clutter  is  not  similar  to  the  target  [1:77].  The  algorithm  works  in  the  frequency  domain 
and  one  of  the  reported  problems  that  hampered  recognition  was  shadows  of  the  target 
and  changes  in  brightness  across  the  target.  These  shadows  and  brightness  changes  pro¬ 
duced  dominate  spatial  frequency  terms  which  caused  the  scale  and  rotation  values  to 
differ  from  the  theoretical.  This  suggests  that  visual  information  might  not  be  the  best 
domain  in  which  to  perform  the  recognition. 

Visual  data  has  many  problem  areas  in  target  recognition.  If  the  environment  for 
recognition  could  be  strictly  controlled,  visual  data  could  prove  to  be  adequate.  How¬ 
ever,  for  a  recognition  system  to  be  robust  in  different  environments  (i.e.  changes  in 
sunlight)  visual  data  varies  too  much  to  be  of  use.  Different  types  of  data  for  possible 
use  include  passive  infrared  or  doppler  and  range  data  obtained  with  a  laser  radar.  This 
research  effort  uses  laser  radar  data  for  processing. 

Range  data  is  obtained  either  using  a  pulsed  laser  and  computing  time-of-flight 
between  the  transmitted  and  received  signal  or  using  a  CW  modulated  beam  and 
measuring  the  phase  shift.  A  range  image  is  obtained  by  using  a  scanning  system  to 
sweep  the  beam  over  the  scene  [7:206].  Therefore,  assuming  that  the  return  signal  is 
digitized  into  an  NxN  array  of  pixels,  each  pixel  will  contain  information  relating  to  the 
relative  range  of  the  sector  of  the  input  scene  covered  by  that  pixel.  Now  the  input 
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scene  data  is  unaffected  by  changes  in  ambient  illumination  or  shadow  problems  and  the 
frequency  domain  contains  information  about  how  the  range  is  changing  within  the 
scene. 

This  concept  of  using  the  frequency  information  of  range  data  for  target 
classification  appears  to  be  an  overlooked  area  of  research.  Grantham  did  a  thesis  using 
model  based  range  data  of  tanks  and  did  correlation  of  these  models  [8].  Tong  did  a 
thesis  using  true  range  data  of  tanks  and  trucks  in  background  clutter  to  segment  out 
possible  targets  from  a  scene  [9].  The  range  data  provided  information  as  to  where  the 
relatively  flat  things  with  edges  were  located.  Earlier  work  by  Duda  and  others  used 
range  data  to  define  edges  and  some  planar  surfaces  with  office  type  scenes  [7;  10;  11]. 
However,  no  one  has  used  the  fact  that  the  changes  in  range  data  across  a  target  have 
spatial  frequency  information  that  is  unique  for  different  targets.  Thus  a  possible  area 
for  classification.  If  this  turns  out  to  be  a  unique  idea,  full  credit  for  originality  must  go 
to  Or.  Steve  Rogers  [12], 

1.3  Problem  Definition 

The  thesis  problem  was  to  classify  and  locate  a  target  within  an  input  scene.  This 
process  must  be  accomplished  regardless  of  the  target’s  variation  in  position,  size,  and 
rotation,  and  with  scenes  that  contain  high  clutter  (non-random  noise). 

1.4  Scope  of  Thesis 

This  thesis  focused  on  classifying  and  locating  a  target  within  an  input  scene. 
Laser  range  data  was  used  in  an  attempt  to  show  that  this  data  contains  more  informa¬ 
tion  than  visual  data  and  can  therefore  lead  to  better  classification.  The  classification 
process  was  attempted  both  in  and  out  of  the  frequency  domain  with  each  process 
explored  to  determine  if  it’s  the  rate  of  change  in  the  range  data  that  produces  the 
classification. 


The  Executive  program  written  by  Kobel  and  Martin  was  used  for  this  study  [  1  :Vol 
II].  This  program  was  used  unmodified  to  perform  the  many  Fourier  transforms  and 
correlations  needed.  It  was  written  using  the  Vax  Ada  programming  language  on  the 
Vax  1 1/780  computer.  All  the  new  programs  used  for  classifying  and  locating  were  also 
written  using  Vax  Ada  and  written  so  as  to  insure  compatibility  with  Executive. 

1.5  Approach  and  Assumptions 

The  approach  was  to  create  segmented  targets  containing  range  data  and  transform 
these  targets  into  a  position,  scale,  and  rotation  invariant  (PSRI)  feature  space  to  deter¬ 
mine  the  proper  scale  and  rotation  relationship  between  template  and  target.  Next,  the 
proper  features  to  be  used  for  classification  must  be  determined.  By  definition,  the 
proper  features  are  any  features  that  can  separate  the  classes  of  objects  that  are  being 
classified.  Classification  methods  both  in  and  out  of  the  frequency  domain  were  to  be 
attempted.  Comparisons  were  to  be  made  between  classification  with  range  data  and 
classification  with  binary  data  to  determine  if  the  range  data  was  being  used  and  not  just 
the  shape  of  the  object. 

The  following  assumptions  were  made  during  the  course  of  this  study: 

1)  The  multisensor  data  was  supplied  from  a  number  of  target  scenes.  Images  were 
supplied  as  a  digitized  256  X  256  array  of  numbers  with  each  number  represented 
as  8  binary  bits.  The  data  included  visual,  laser  radar,  and  infrared  pictures. 

2)  The  out-of-plane  rotation  of  the  target  w  as  known  and  templates  at  this  orientation 
were  available.  This  restricts  us  to  in  -  plane  recognition. 

3)  The  location,  size,  and  in-plane  rotation  of  the  target  were  unknown  prior  to  pro¬ 
cessing.  This  requires  a  position,  scale  and  rotation  invariant  algorithm. 

4)  The  potential  target  was  presented  to  the  classifier  segmented  from  the  input  scene. 

5)  The  recognizer  as  a  whole  had  no  prior  knowledge  about  the  background  informa¬ 
tion  of  the  scene. 

1.6  Overview  of  Thesis 

This  thesis  is  structured  in  an  order  which  would  naturally  flow  if  the  proposed 
recognition  algorithm  were  to  be  carried  out.  The  proposed  algorithm  is  as  follows: 


First,  segment  out  possible  targets  from  an  input  scene.  This  can  be  accomplished 
with  either  a  doppler  image,  if  the  target  happens  to  be  moving  [13],  and/or  with  a  range 
segmenter  as  proposed  by  Tong  [9:Ch  3].  This  segmented  scene  is  in  a  binary  form  and 
is  then  overlayed  on  a  laser  range  scene  to  include  the  range  changes  in  the  possible  tar¬ 
gets.  This  is  so  the  rest  of  the  algorithm  only  has  to  work  with  one  region  and  one  target 
at  a  time.  The  segmenting  and  region  selection  process  are  the  topics  discussed  in 
chapter  II. 

Second,  the  target  and  template  are  transformed  into  a  position,  scale,  and  rotation 
invariant  (PSRI)  feature  space.  A  correlation  is  performed  between  the  two  feature 
spaces  which  determines  the  rotation  and  scale  relationship  between  the  two.  If  neces¬ 
sary  and  available,  a  properly  scaled  and  rotated  template  can  now  be  chosen  from  a 
template  bank.  The  creation  of  the  PSRI  feature  space  and  how  a  correlation  determines 
the  scale  and  rotation  relationship  are  the  subjects  of  chapter  III. 

Third,  a  window  around  the  peak  of  the  target  -  template  PSRI  feature  space  corre¬ 
lation  is  presented  for  classification.  In  this  domain,  classification  is  accomplished  both 
with  standard  distance  measurements  and  with  a  trainable  neural  network.  These 
methods  of  classification  are  the  subjects  of  chapter  IV. 

Another  method  of  classification  is  to  take  a  properly  scaled  and  rotated  template 
back  into  the  space  domain  and  perform  a  "normalized"  correlation  between  the  target 
and  template.  The  normalized  correlation  used  was  discovered  during  this  thesis  effort 
and  will  be  from  this  point  called  a  Goodman  -  Schwartz  correlation.  This  correlation 
and  its  use  in  classification  are  the  subjects  of  chapter  V. 

Finally,  experimental  results  which  compare  the  use  of  range  imagery  to  that  of 
binary  data  are  presented  in  chapter  VI  with  conclusions  and  recommendations  being 
presented  in  chapter  VII. 


H  Segmenting  Targets 


The  targets  were  presented  to  the  classification  pan  of  the  algorithm  in  segmented 
form.  Segmentation  was  also  needed  to  create  templates  to  compare  the  targets  to. 
When  Kobel  and  Martin  tested  the  AFIT  algorithm  using  visual  images,  the  templates 
were  made  by  creating  a  silhouette  of  the  target  from  the  actual  visual  picture.  The  tem¬ 
plate  was  cut  out  by  hand  and  made  to  be  black  on  a  white  background.  If  a  smaller  or 
larger  template  was  desired,  the  silhouette  was  moved  farther  or  closer  to  the  digitizing 
camera  and  a  new  image  was  formed  [1].  This  approach  was  not  used  to  create  tem¬ 
plates  which  include  range  information  since  the  range  data  was  presented  with  a 
numerical  range  of  256  and  the  digitizing  camera  available  only  had  a  range  of  16  lev¬ 
els.  This  loss  of  information  was  thought  to  be  unsatisfactory  for  an  algorithm  that  was 
attempting  to  determine  the  usefulness  of  range  information.  A  geometric  model-based 
approach  would  be  a  good  way  to  collect  the  data  in  a  more  realistic  environment  where 
different  aspect  angles  would  need  to  be  computed.  But  this  approach  was  well  beyond 
the  scope  of  this  thesis.  Some  initial  testing  was  performed  using  targets  that  were  hand 
segmented  directly  from  the  laser  range  data.  Hand  segmentation  simply  involves  set¬ 
ting  all  the  pixel  locations  that  don’t  belong  to  the  target  equal  to  zero.  With  a  256  x 
256  image,  this  becomes  a  very  tedious  process.  By  the  time  it  became  necessary  to  test 
the  algorithm  using  many  targets  and  templates,  Dennis  Ruck,  a  fellow  AFTT  student, 
had  found  a  way  to  produce  segmented  targets  using  the  doppler  information  of  the  laser 
radar  data  [13]. 

These  segmented  doppler  images  were  in  a  binary  form  with  the  target  pixels  hav¬ 
ing  a  value  of  one  and  the  background  having  a  value  of  zero.  The  segmented  doppler 
image  was  then  multiplied  by  the  range  image  to  yield  a  template  with  range  informa¬ 
tion.  The  "Ruck  Doppler  Segmenter"  became  an  invaluable  tool  in  this  thesis  effort. 
What  follows  now  is  a  brief  summary  of  Ruck’s  Optimum  Thesholding  method  of  seg¬ 
menting  doppler  data  along  with  his  region  detection  routine  which  was  needed  for  the 


case  of  multiple  targets.  For  more  details  refer  to  Ruck’s  thesis  [13]. 


o 


Ruck  uses  an  optimum  thresholding  method  described  by  Gonzalez  and  Wintz 
[14:325-331]  which  assumes  that  there  are  two  principal  brightness  regions  in  an  image. 
In  a  doppler  image,  one  region  corresponds  to  the  targets  (assuming  a  radial  velocity) 
and  the  other  corresponds  to  the  background.  Therefore,  the  histogram  of  the  doppler 
image  will  contain  two  separate  clusters,  a  target  cluster  and  a  background  cluster.  Ruck 
shows  that  assuming  the  a  priori  probabilities  of  the  target  and  background  are  equal, 
and  assuming  that  the  two  clusters  are  indeed  separate,  "the  optimal  threshold  becomes  : 


T  = 


(2.1) 


where  \it  and  |i*  are  the  means  of  the  target  and  background  distributions,  respectively  " 
[13]. 


Now  its  a  simple  matter  to  set  each  pixel  with  a  value  greater  than  the  threshold 
equal  to  one  and  less  than  the  threshold  equal  to  zero.  In  the  above  analysis,  there  is  no 
guarantee  on  which  side  of  threshold  the  actual  target  pixels  will  fall.  Ruck  overcomes 
this  obstacle  by  assuming  that  there  should  always  be  more  background  pixels  than  tar¬ 
get  pixels.  Therefore,  if  the  resulting  picture  contains  more  ones  than  zeros,  he  reversed 
the  polarity  of  the  segmented  image  between  zero  and  one  [13]. 

The  segmented  image  now  contains  all  the  moving  objects  within  the  input  scene 
in  binary  form.  Its  then  necessary  to  determine  which  areas  in  the  scene  are  worth 
further  processing  (ie.  classification).  Ruck  identifies  these  regions  by  first  scanning  the 
entire  segmented  image  and  creating  a  list  of  the  borders  of  all  the  clusters  of  pixels.  If 
this  border  list  was  less  than  a  threshold  set  at  50,  the  region  was  deemed  too  small  to 
bother  with.  Each  of  the  remaining  lists  corresponded  to  possible  targets  that  needed  to 
be  classified  [13],  The  border  lists  were  then  separately  reconstructed  into  binary 
images  which  could  be  multiplied  by  the  complete  laser  range  image  to  produce  the 
desired  laser  range  targets  and  templates. 


<0 
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Ruck’s  doppler  segmenter  was  used  for  the  vast  majority  of  the  experimentation  in 
this  thesis.  However,  it  does  have  an  obvious  drawback  with  non-moving  targets.  The 
segmenter  proposed  by  Tong  uses  a  combination  of  laser  range  and  infrared  data  to  seg¬ 
ment  out  the  "man-made"  objects  out  of  cluttered  backgrounds.  Through  a  process  of 
gradient  operations,  mask  generation,  and  conditional  neighborhood  filtering,  Tong  was 
successful  in  producing  segmented  binary  images  of  the  desired  targets  [15].  These  seg¬ 
mented  targets  tend  to  have  a  certain  amount  of  "blobness"  associated  with  them  but  the 
robustness  of  the  process  makes  these  targets  worth  an  attempt  at  classification. 

A  detailed  analysis  showing  the  usefulness  of  classifying  with  Ruck  -  segmented 
targets  versus  Tong  -  segmented  targets  was  not  accomplished.  Some  Tong  -  segmented 
targets  were  simply  thrown  into  the  classification  pot  and  checked  to  see  if  problems 
resulted.  If  both  types  of  templates  could  be  classified  then  each  method  was  deemed 
useful. 

Once  a  template  and  possible  target  was  identified,  the  next  step  was  to  transform 
each  into  the  PSRI  feature  space.  This  transformation  was  necessary  whether  the 
classification  was  to  be  performed  on  the  correlation  peak  or  with  the  actual  target  in  the 
space  domain.  The  next  chapter  covers  the  PSRI  feature  space. 


ID.  The  PSRI  Feature  Space 


3.1  Creation  of  PSRI  Space 

Since  the  segmented  target  could  be  presented  to  the  classifier  with  any  position, 
scale  or  rotation  characteristics,  a  space  which  is  invariant  to  these  changes  is  needed. 
Much  work  has  been  done  with  the  F(ln  r,0)  position,  scale,  and  rotation  invariant 
(PSRI)  feature  space  by  Casasent  [3]  and  locally  by  Mayo,  Horev,  Kobel  and  Martin 
[1,4,16].  In  this  case,  a  PSRI  feature  space  is  not  one  who’s  features  are  totally  invariant 
to  position,  scale  and  rotation  but  rather  one  who’s  features  behave  in  a  very  predictable 
manner  with  respect  to  position,  scale  and  rotation. 

The  position  invariance  is  the  only  true  invariant  part  of  this  feature  space  and  is 
accomplished  by  taking  the  magnitude  of  the  Fourier  transform  of  the  input  scene.  The 
position  invariance  of  this  transformation  is  indicated  by  the  Fourier  transform  "shift" 
theorem: 

If  F  { i(x,y)}  =l(fx>fy)  then 

F{i{ *-oc,y-p);  =I(fxJy)eH^af^^)]  (3.1) 

where  i(x  -  a.y  -  p)  =  input  image  shifted  by  a  units  in  the  x  direction 

and  by  P  units  in  the  y  direction 
F{  )  =  Two  dimensional  Fourier  transform. 

Therefore,  shifts  in  the  input  scene  will  only  affect  the  phase  portion  of  the  Fourier 
transform  and  will  have  no  affect  on  the  magnitude  portion.  This  is  very  nice  for  mak¬ 
ing  the  space  shift  invariant,  but,  it  runs  a  great  risk  if  this  space  is  now  used  for 
classification.  By  throwing  away  the  phase,  we  assume  that  information  in  the  magni¬ 
tude  of  the  Fourier  Transform  is  enough  for  classification  [17]. 

Rotation  ’invariance’  is  accomplished  by  first  realizing  that  rotations  within  the 
input  scene  result  in  exact  equal  rotations  in  the  magnitude  Fourier  transform  plane.  If 
the  magnitude  Fourier  transform  plane  is  mapped  into  polar  coordinates,  rotations  in  the 
input  plane  will  result  in  linear  shifts  along  the  angle  axis.  The  new  spatial  frequency 


coordinates  are  given  by. 


/e  =  tan  1  ~ 
Jx 


fr=(fl+f2y)m  (3.3) 

Kobel  and  Martin  used  only  half  of  the  magnitude  Fourier  transform  for  conversion  to 

the  polar  coordinates  since  the  magnitude  spectrum  has  even  symmetry  [1:17-18]. 

The  scale  ’invariance’  makes  use  of  the  following  Fourier  transform  property  : 


F\i(a  ’i)>=  laP'  /(a^  ’  W  (3.4) 

This  property  is  simplified  by  realizing  that  there  are  not  different  shaped  targets  only 
the  appearance  of  different  sized  targets  due  to  how  far  the  target  is  away.  This  type  of 
scaling  will  be  equal  in  the  x  and  y  direction  and  therefore  a  =  P  .  Since  the  angular 
axis  (/e)  was  created  from  the  ratio  of  the  y-direction  frequencies  to  that  of  the  x-  direc¬ 
tion  frequencies,  it  is  not  affected  by  uniform  scaling. 

The  radial  frequency  coordinate  of  the  scaled  polar  magnitude  spectrum  is  now  : 

/r  =  [a2(/f+4)]1/2  (3.5) 

Taking  the  natural  log  of  both  the  scaled  and  the  unsealed  radial  frequency  coordinate 


results  in  : 


lnifr)=jln(fW2y) 


ln(/r)  =  ln(a)+~ln{fx+f2y) 


In  (fr)  ~  In  (fr)  =  In  (a)  (3.8) 

Therefore,  if  the  radial  axis  is  logarithmically  scaled,  uniform  scaling  of  the  input  will 

result  in  a  linear  shift  along  the  In  fr  axis.  Smaller  targets  will  shift  in  the  positive  direc¬ 
tion  and  larger  targets  will  shift  in  the  negative  direction.  The  properties  of  the  PSRI 


space  are  shown  in  figures  3. 1  -  3.5. 


Fig  3.1 

Original  Template 


Fig  3.2 

Magnitude  Fourier  Transform  of  Template 
(Note:  Magnitude  Fourier  Transform  is  Invariant  to  Shifts) 
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Fig  3.4 

PSRI  Space  of  Original  Template 


Fig  3.5 

PSRI  Space  of  Shifted,  Scaled,  and  Rotated  Template 
(Note:  Three  operations  are  independent  and  cause  a 
measureable  shift  in  the  PSRI  space.) 


Fig  3.6 

Correlation  of  Previous  PSRI  Spaces 
(Note:  Correlation  peak  indicates  amount  of  shift 
and  therefore  scale  and  rotation.) 
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There  are  a  few  subtle  points  about  this  feature  space  that  need  to  be  pointed  out. 
First,  invariance  in  rotation  translates  to  linear  shifts  along  the  /e  axis.  This  axis  is 
periodic  so  shifts  off  the  right  end  wrap  around  to  the  beginning  of  the  left  end.  Second, 
invariance  in  scale  translates  to  linear  shifts  along  the  ln/r  axis.  This  axis  is  not 
periodic.  The  In  fr  axis  can  be  thought  of  as  extending  to  infinity  in  both  directions 
above  and  below  the  region  chosen  to  be  analyzed.  A  linear  shift  then  means  to  shift 
this  chosen  region.  Smaller  targets  causing  a  positive  shift  means  that  new  information 
is  pushed  in  from  the  bottom  and  information  is  lost  off  the  top.  This  can  cause  prob¬ 
lems  in  classification  for  large  scale  changes  depending  on  how  closely  related  the 
classes  are  to  one  another. 

3.2  Use  of  PSRI  Space 

One  of  the  best  uses  of  this  PSRI  feature  space  is  in  determining  how  much  a  tem¬ 
plate  is  scaled  and  rotated  with  respect  to  the  target.  Rotations  are  represented  by  linear 
shifts  along  the  /e  axis  and  scale  changes  are  represented  by  linear  shifts  along  the  In  fr 
axis.  Therefore,  a  correlation  between  the  target  and  the  template  PSRI  spaces  will  tell 
how  much  scale  and  rotation  difference  there  is.  The  correlation  plane  will  contain  a 
peak  value  at  a  location  representative  of  how  much  the  template  PSRI  space  had  to 
shift  to  match  the  target  PSRI  space.  If  the  target  and  template  are  the  same  scale  and 
rotation,  a  peak  at  location  (0,0)  in  the  correlation  plane  will  result.  The  results  section 
of  this  thesis  contains  data  which  shows  that  shifts  along  the  /e  axis  occur  at  a  rate  of 
2.8  pixels/degree  rotation  and  along  the  In  fr  axis  at  a  rate  of  30  pixels  for  a  scale 
change  of  2.T  (See  Fig  3.6).  Once  the  scale  and  rotation  changes  are  known,  a  properly 
scaled  and  rotated  template  could  be  chosen  from  a  template  bank  for  further  process¬ 
ing.  The  results  section  also  shows  how  critical  a  properly  scaled  and  rotated  template 
is  for  classifying  and  locating  a  target.  As  stated  in  chapter  I,  one  proposed  method  of 
classification  was  to  analyze  the  peak  of  a  template  -  target  PSRI  feature  space  correla¬ 
tion.  The  theory  of  the  PSRI  feature  space  leads  to  a  hope  that  differently  scaled  and 


rotated  objects  should  correlate,  in  the  PSR1  feature  space,  to  very  similar  peaks.  Again, 
this  is  due  to  the  fact  that,  in  theory,  the  only  change  in  the  PSR1  spaces  has  been  linear 
shifts.  If  a  method  of  grouping  similar  things  together  and  then  measuring  the  level  of 
"togetherness"  could  be  found,  classification  would  result.  Classification  is  the  subject  of 
the  next  chapter. 
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IV.  Classification 


4.1  Introduction 

The  theory  of  the  PSRI  feature  space  states  that  targets  that  are  scaled  and  rotated 
with  respect  to  one  another  should  be  virtually  identical  (except  for  linear  shifts)  in  the 
PSRJ  space.  Therefore,  if  the  PSRI  space  of  a  template  is  correlated  with  a  PSRI  space 
of  a  scaled  and  rotated  target,  the  "shape"  of  the  correlation  should  be  similar  to  the 
shape  of  an  autocorrelation  of  the  template  PSRI.  If  a  way  to  determine  and  measure 
these  similarities  could  be  found,  then  classification  could  be  accomplished.  This  was 
the  logic  that  was  followed  in  the  pursuit  of  classification. 

The  correlation  used  for  all  the  PSRI  feature  spaces  was  the  linear  modified  phase 
correlation  as  discussed  in  Kobel  and  Martin  [1:37-39).  In  this  correlation,  the  magni¬ 
tude  of  the  templates  Fourier  transform  is  set  to  one  during  the  correlation  and  has  the 
effect  of  edge  enhancing  the  PSRI  space  of  the  template.  This  effect  can  be  thought  of 
as  a  very  specialized  high-pass  filter  being  applied  to  the  magnitude  transform  All 
Fourier  transforms  of  real  objects  have  large  low  frequency  magnitudes  relative  to  the 
high  frequency  magnitudes  and  the  high  frequency  magnitudes  always  approach  zero  as 
the  frequencies  become  very  large.  Therefore,  setting  all  the  magnitudes  equ.J  to  one 
has  the  effect  of  attenuating  the  low  frequencies  relative  to  the  high  frequencies,  thus  a 
high-pass  filter.  Now,  since  the  PSRI  space  of  the  template  is  edge  enhanced,  the  corre¬ 
lation  plane  will  contain  a  peak  where  the  shape  of  the  template  PSRI  space  best 
matches  the  shape  of  the  target  PSRI  space.  This  last  statement  is  not  generalized  to  all 
modified  phase  correlations  but  works  in  this  case  since  the  PSRI  space  is  based  on  a 
magnitude  Fourier  transform.  The  energy  in  the  PSRI  space  peaks  and  falls  off  nicely 
from  these  peaks  without  spurious  high  energy  pockets.  Without  a  normalization 
scheme,  this  correlation  could  not  be  expected  to  produce  as  good  results  with  a  clut¬ 
tered  space  domain  correlation.  After  the  complete  correlation  w.-c  performed,  the  peak 
was  found  with  a  simple  maximum  value  search  routine  and  ilu  location  of  the  peak 


very  accurately  defined  the  scale  and  rotation  of  the  target  with  respect  to  the  template. 
The  peak  in  the  correlation  plane  was  chosen  as  the  starting  point  for  feature  extraction. 

Tallman  showed  that  the  lower  three  harmonics  of  the  Fourier  transform  are 
enough  to  adequately  discriminate  handwritten  letters  of  the  alphabet  [18].  These  lower 
three  harmonics,  along  with  the  DC  component,  result  in  a  7  by  7  array  of  numbers. 
Even  though  it’s  an  enormous  jump  between  defining  an  object  in  the  low  frequency 
Fourier  transform  space  to  defining  an  object  based  on  some  peak  in  the  correlation 
plane  of  the  PSRI  spaces,  this  7x7  array  around  the  peak  was  the  initial  features  for 
attempted  recognition.  Examples  of  these  peaks  are  shown  in  figures  4.1  and  4.2. 


123. 


Fig  4.1  Example  of  an  Autocorrelation  Peak 
(Note:  This  smooth  fall  off  is  present  in 
all  the  autocorrelation  peaks.) 


It  seems  appropriate  at  this  point  to  momentarily  digress  to  some  general  thoughts 
on  target  recognition.  No  ideal,  all  purpose  features  have  ever  been  found  that  can 
always  classify  any  target  It  is  reasonable  to  assume  that  such  features  may  never  be 
found  and  very  well  may  not  exist  However,  many  types  of  features  have  been  found 
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Fig  4.2  Example  of  a  Crossconrelation  Peak 
(Note:  All  crosscorrclation  peaks  lack  the  smooth  fall  off.) 

and  used  sucessfully  for  recognition  given  a  set  of  restrictions  on  such  things  as  size, 

rotation,  aspect  angle,  noise  and  illumination.  Even  human  beings,  which  possess  a 

remarkable  recognition  system,  have  restrictions  such  as  distance  and  illumination. 

There  is  an  almost  endless  supply  of  features  that  can  be  extracted  from  an  object. 
The  only  limitations  seem  to  be  the  limitation  of  the  imagination.  However,  by 
definition,  good  features  are  ones  that  result  in  recognition  and  better  features  are  ones 
that  result  in  a  smaller  set  of  restrictions.  With  any  given  set  of  features  there  is  really 
no  way  of  knowing  if  they  are  a  good  set  without  testing  them.  Even  a  good  set  of 
features  might  be  rejected  because  the  proper  form  of  testing  can’t  be  found.  There  is 
much  trial  and  error  involved  in  the  art/science  of  pattern  recognition  and  any  pursuit  of 
recognition  is  destined  to  result  in  many  more  failures  than  successes.  Therefore,  the 
reason  for  choosing  a  7x7  window  around  the  correlation  peak  of  the  PSRI  feature 
spaces  for  classification  was  based  on  a  mixture  of  scientific  reasoning,  from  the  theory 
of  the  PSRI  feature  space,  and  the  fact  that  it  "felt"  like  it  should  work,  since  Tallman 


did  similar  work  with  letters. 


4.2  Correlation  Peak  Analysis 

The  testing  method  was  to  compare  the  window  with  an  autocorrelation  window. 
The  autocorrelation  window  was  a  7x7  window  around  the  peak  of  the  autocorrelation 
of  a  template  PSRI  feature  space.  The  comparison  was  done  by  first  normalizing  each 
window  by  dividing  each  point  by  the  square  root  of  the  sum  of  the  squares  of  all  the 
points  in  the  window.  The  7x7  array  of  numbers  can  now  be  thought  of  as  a  49  dimen¬ 
sional  vector  with  a  length  of  1.  Each  vector,  from  every  correlation,  now  specifies  a 
point  on  the  surface  of  a  49  dimensional  hypersphere.  If  the  point  representing  the  auto¬ 
correlation  represents  an  exact  match  between  the  template  and  the  target,  then  even 
though  the  target  may  be  rotated  and  scaled  differently,  the  correlation  peak  should  look 
similar  to  an  autocorrelation  and  be  located  very  close  to  the  true  autocorrelation  peak 

on  the  49  space  hypersphere.  Of  coarse,  "very  close"  is  an  extremely  relative  term.  The 

49  -i- 

distance  between  the  two,  if  measured  as  £>  =  (T(jc1(  -jc^)2)  2  ,  need  only  be  closer 

1  «=i 

than  any  cross  correlations  in  order  to  be  separable. 

For  example,  if  a  target,  T,  has  the  possibility  of  being  one  of  3  classes  A,  B,  or  C, 
1  then  three  PSRI  feature  space  correlations  are  performed,  (T*A,  T*B,  T*C).  The  dis¬ 

tances  in  49  space  between  each  of  the  correlation  peaks  and  the  corresponding  auto¬ 
correlation  peaks  are  calculated,  (T*A  >  A*A,  T^B  -  B*B,  T*C  -  C*C).  The  smallest 
distance  will  then  correspond  to  the  correct  match.  In  this  thesis  experiment,  there  are 
only  2  classes,  autocorrelations  or  crosscorrelations.  Without  placing  too  many  restric¬ 
tions  on  the  algorithm,  it  was  hoped  that  the  autocorrelation  peaks  would  cluster 
together  and  that  the  crosscorrelations  could  be  located  anywhere  outside  this  cluster. 
Therefore,  it  was  only  necessary  to  measure  the  distance  between  the  correlation  and  a 
single  reference  autocorrelation.  A  threshold  value  could  then  be  set  to  determine  if  the 
»  correlation  was  within  the  autocorrelation  region.  This  assumes  that  the  correlation 


to 
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to 
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points  on  the  49  space  hypersphere  are  clustered  into  neatly  packed  regions  and  that  any 
wrongly  matched  correlation  will  be  located  farther  away  from  the  true  autocorrelation 
than  all  desired  properly  matched  correlations.  However,  its  not  guaranteed  that  the 
clustering  will  be  so  neat. 

It  is  possible  for  regions  to  be  clustered  into  arbitrary  shapes  where  distances 
within  a  region  are  not  smaller  than  region  to  region  distances,  strips  for  example.  In 
this  case,  it’s  necessary  to  either  find  another  testing  method  besides  distances  or  per¬ 
form  some  type  of  processing  on  the  features  which  will  spread  the  regions  farther  apart. 
Another  testing  method  is  found  in  the  newly  rediscovered  field  of  neural  networks. 

Appendix  A  explains  more  about  neural  nets,  but  the  general  theory  of  the  mul¬ 
tilayer  perceptron  neural  net  is  that  given  a  set  of  data  to  train  with,  the  net  will  formu¬ 
late  the  boundaries  around  the  regions.  Once  the  training  is  accomplished,  test  data  is 
supplied  and  the  net  will  indicate  which  region  it  falls  in.  The  region  identification 
results  in  classification.  Identification  is  via  a  numeric  value  of  the  output  of  the  network 
where  a  value  of  greater  than  an  upper  threshold  indicates  a  true  and  a  value  less  than  a 
lower  threshold  indicates  a  false.  The  upper  threshold  is  usually  taken  to  be  0.9  and  the 
lower  threshold  taken  to  be  0.1.  This  separation  between  a  true  and  a  false  value  results 
in  a  very  good  figure  of  merit  criteria.  The  figure  of  merit  gives  that  warm  fuzzy  about 
how  much  the  classification  decision  can  be  trusted  [19].  Both  distance  measurements 
and  neural  nets  were  used  as  tests  with  results  shown  in  chapter  VI. 

Another  method  of  classification  worked  with  in  this  thesis  was  performing  a  nor¬ 
malized  correlation  within  the  space  domain.  This  method  requires  determining  the 
proper  scale  and  rotation  for  the  template  and  then  correlating  the  template  with  the  seg¬ 
mented  target  in  the  space  domain.  The  classification  can  now  be  accomplished  on  the 
magnitude  of  the  correlation  peak.  As  shown  in  chapter  V,  the  correlation  peak  will  be 
maximum  when  an  exact  point  for  point  numerical  match  occurs  between  the  target  and 
template.  Since  the  range  information  is  periodic,  the  absolute  numeric  values  of  the 


« 


4-5 


target  can’t  be  predicted.  Two  preprocessing  methods  were  used  in  an  attempt  to  make 
the  target  and  the  template  have  the  same  absolute  values.  Method  1  involves  taking  the 
gradient  of  both  the  target  and  the  template  before  correlating.  The  gradient  operation 
ignores  the  absolute  values  and  assigns  new  values  based  on  the  numerical  change 
between  points.  This  has  a  nice  "flavor"  to  it  as  it  emphasizes  the  fact  that  the  changes 
in  the  range  data  are  unique  for  a  given  target.  The  second  method  is  to  simply  add  a 
value  to  each  point  in  the  template  that  makes  the  target  and  the  template  have  the  same 
average  value.  This  is  accomplished  by  finding  the  average  of  the  points  in  the  target 
and  in  the  template  and  then  adding  the  difference  of  the  averages  to  each  point  in  the 
template.  Both  methods  were  tried  and  the  results  are  shown  in  chapter  VI.  The  details 
of  this  space  domain  correlation  are  discussed  in  the  next  chapter. 


V.  Correlation 


5.1  Introduction 

Most  pattern  recognition  algorithms  use  some  form  of  correlation  as  the  method  of 
finally  locating  the  target.  Basic  correlation  involves  shifting  the  template  to  all  possi¬ 
ble  locations  within  the  input  scene  and  summing  the  product  of  all  corresponding 
points.  A  basic  correlation  works  very  well  for  a  scene  in  which  the  target  energy  is 
much  greater  than  the  background  noise,  where  all  possible  targets  have  equal  energy, 
and  where  the  shape,  size,  and  orientation  of  the  target  is  very  accurately  known.  Since 
very  few  of  these  type  scenes  exist,  the  basic  unmodified  correlation  is  very  rarely  used 
[19]. 

The  main  problem  with  using  an  unmodified  correlation  on  most  real  scenes  is  that 
many  times  there  is  more  energy  in  the  noisy  background  than  in  the  target.  Therefore, 
the  correlation  peak  due  to  the  target  will  be  much  lower  than  the  correlation  peaks 
associated  with  the  background.  Hence,  it  has  only  limited  applicability.  Ideally,  it’s 
desired  to  have  the  largest  peak  in  the  correlation  plane  identify  the  location  of  the  tar¬ 
get.  Kobel  and  Martin  partially  overcame  this  problem  when  correlating  feature  spaces 
by  using  a  modified  phase  correlation  [1:38]. 

Basically,  the  modified  phase  correlation  involved  correlating  the  template  with  an 
edge  enhanced  version  of  the  input  scene.  This  correlation  was  used  for  all  the  correla¬ 
tions  of  the  PSRI  feature  spaces,  and  it  works  well  when  looking  for  a  pattern  in  a  scene 
that  doesn’t  contain  a  great  deal  of  rapidly  changing  noise.  Two  problems  make  this 
unsuitable  for  correlation  with  range  data.  First,  most  laser  range  data  contains  a  great 
deal  of  rapidly  changing  noise  in  such  things  as  trees  and  bushes.  Second,  since  the 
range  data  is  periodic  from  0  to  256,  the  jump  from  256  back  to  0  will  contain  a  large 
amount  of  energy  when  edge  enhanced. 

Another  type  of  correlation  suggested  by  Kobel  and  Martin  was  to  first  rectify  the 
image  by  making  the  magnitude  of  it’s  Fourier  transform  equal  to  the  magnitude  of  the 


templates  Fourier  transform.  This  process  enhances  the  frequencies  associated  with  the 
template  and  attenuates  the  noise.  A  problem  found  with  this  type  of  correlation  is  that 
the  frequency  associated  with  the  range  gates  (the  spacing  between  the  range  jumps)  can 
be  very  close  to  the  dominant  frequencies  of  the  template.  Therefore,  when  the  frequen¬ 
cies  of  the  template  are  enhanced,  a  large  amount  of  energy  is  put  into  these  gates.  This 
results  in  correlation  peaks  at  the  areas  of  "correctly"  spaced  range  gates  and  not  at  the 
target.  These  problems  are  not  intended  to  state  that  these  correlation  methods  will 
never  work  on  range  data,  just  to  show  some  of  the  problems  that  need  to  be  overcome. 
For  someone  more  adept  at  computer  programing  and  graphics,  it  may  be  a  relatively 
simple  task  to  rid  the  input  scene  of  the  range  jumps.  Also,  for  the  newer  AM/FM  laser 
radars,  where  the  absolute  range  will  be  available,  the  problem  will  not  exist. 

5.2  Goodman  -  Schwarz  Correlation 

When  using  a  correlation  for  direct  target  classification  of  a  segmented  target  as 
proposed  in  chapter  IV,  it  becomes  necessary  to  have  an  expectation  of  the  correlation 
peak.  A  correlation  method  that  was  found  to  produce  very  desirable  results  is  what  will 
be  referred  to  as  a  Goodman  -  Schwarz  correlation.  Although  a  reference  for  the  use  of 
this  correlation  was  not  found,  the  method  is  a  simple  extension  of  a  character  -  recogni¬ 
tion  system  discussed  by  Goodman  [20:179-181]  and  is  sure  to  have  been  used  before. 
The  Goodman  -  Schwarz  correlation  is  accomplished  entirely  in  the  space  domain  using 
as  a  starting  point  the  brute  force  definition  of  correlation.  The  equation  for  a  space 
domain,  discrete,  brute  force  correlation  is  as  follows: 

,  N-w-i 

^(0,(3)  =  ——  £  Y,x(n,m)y(n+a,m+p)  (5.1) 

n=0m=0 

This  equation  says  that  every  point  in  the  correlation  plane  is  a  result  of  the  sum  of  a 
point  by  point  multiplication  of  the  image  with  a  shifted  template  where  the  shift 
corresponds  to  the  location  of  the  point  in  the  correlation  plane.  Again  this  basic  corre¬ 
lation  does  very  little  for  locating  or  classifying  except  for  very  simplified,  highly 


restrictive  cases. 


The  main  modification  to  this  correlation  is  the  energy  normalization  of  the  input 
data.  Most  energy  normalization  schemes,  including  the  character  -  recognition  system 
discussed  by  Goodman,  are  involved  with  image  and  templates  of  the  same  array  dimen¬ 
sions  and/or  with  the  restriction  of  one  object  in  the  input  scene,  usually  with  relatively 
minor  amounts  of  noise  With  a  smaller  template  array  and  an  image  filled  with  a  large 
amount  of  noise  and  several  possible  targets,  it  becomes  necessary  to  do  a  more  local¬ 
ized  normalization.  The  character  -  recognition  system  in  Goodman  takes  an  input 
image  (a  character)  and  compares  it,  basically  using  a  correlation,  with  a  series  of  tem¬ 
plates.  The  correlation  is  then  normalized  by  the  division  of  the  square  root  of  the  sum 
of  the  squares  of  all  the  points  in  the  template  (the  energy  of  the  template).  Goodman 
shows  a  proof  using  the  Schwarz  inequality  which  states  that  the  peak  magnitude 
squared  of  this  correlation  is  an  absolute  maximum  when  the  template  and  the  image 
numerically  match.  Numerically  is  stressed  to  emphasize  that  its  the  numbers  that  are 
needed  to  match  and  not  just  the  shapes.  Also,  when  the  template  and  the  image  exactly 
match,  the  magnitude  squared  of  the  correlation  peak  will  be  equal  to  the  sum  of  the 
squares  of  the  template  (the  square  of  the  energy).  This  fact  gives  us  the  expected  value 
needed  for  classification. 

It’s  a  simple  modification  of  the  character  -  recognition  system  to  reverse  the 
image  and  template  roles.  Now  there  is  one  template,  several  inputs,  and  normalization 
is  by  the  input  energy.  The  shifting  method  in  the  Goodman- Schwarz  correlation  is  the 
same  as  the  brute  force  correlation  except  at  each  shift  in  the  correlation,  the  part  of  the 
image  corresponding  to  the  location  of  the  shifted  template  is  considered  to  be  the  input 
to  the  modified  character  -  recognition  system.  The  output  of  the  modified  character  - 
recognition  system  becomes  the  value  of  that  shift  point  in  the  Goodman-Schwarz  corre¬ 
lation  plane.  A  simple  peak  search  of  the  correlation  plane  will  identify  the  location 
where  the  image  best  matched  the  template.  If  the  peak  value  is  equal  to  the  square  of 


the  energy,  that  location  contains  an  exact  match  of  the  template.  Also,  its  possible  to 
determine  a  threshold,  related  to  the  theoretical  peak  value,  that  will  result  in  acceptable 
classification. 

This  method  would  have  a  hard  time  with  a  small  binary  square  template  attempt¬ 
ing  to  locate  another  small  binary  square  in  a  scene  that  also  contains  large  binary 
squares.  Since  the  normalization  only  uses  the  energy  of  the  image  that  corresponds  to 
the  location  of  the  shifted  template,  all  the  locations  in  the  correlation  plane  representing 
the  large  squares  will  also  contain  the  proper  maximum  peak  value  which  would  indi¬ 
cate  an  exact  match.  However,  with  the  use  of  the  range  data,  the  process  was  found  to 
work  very  well  for  locating  and  classifying  a  target  when  the  template  was  taken 
directly  from  the  input  scene  (ie.  same  scale,  rotation,  aspect  angle  and  relative  range 
values).  Also,  as  stated  in  chapter  IV,  the  gradient  operation  or  an  average  equalization 
can  be  used  to  allow  for  differences  in  the  absolute  value  of  the  range  information.  In 
this  manner,  the  locating  and  classifying  was  accomplished  in  a  single  step.  In  addition, 
this  method  has  the  possibility  of  working  with  partially  occluded  targets.  The  template 
could  be  broken  into  a  number  of  sectors  with  each  sector  now  being  run  through  the 
correlation  process  as  a  separate  template.  The  final  classification  would  be  based  on 
the  number  of  adjoining  sectors  that  reached  threshold,  five  out  of  nine  for  example.  A 
closer  examination  of  this  process  also  shows  that  a  completely  parallel  architecture  is 
possible.  Experimental  results  of  all  the  classification  methods  are  presented  in  the  next 
chapter. 


VL  Experimental  Results 


6.1  Introduction 

This  section  will  show  and  discuss  the  results  of  the  various  experiments  conducted 
during  this  thesis  effort.  First  will  be  the  verification  of  the  use  of  a  PSRI  space  correla¬ 
tion  to  identify  the  scale  and  rotation  of  a  target  with  respect  to  a  given  template  using 
laser  range  data.  This  is  a  "get  your  feet  wet"  experiment  since  it  uses  the  parts  of  Kobel 
and  Martin’s  Executive  program  that  will  be  needed  for  the  remaining  experiments. 
Kobel  and  Martin  already  demonstrated  that  this  process  works  well  with  visual  data 
[1:66-67]  and  it  was  necessary  to  insure  that  range  data  would  also  work.  Next  will  be 
the  classification  experiment.  This  portion  consists  of  three  separate  experiments  with 
each  portion  comparing  the  use  of  range  data  to  that  of  binary  data  for  classification. 
The  three  experiments  include  a  standard  distance  measurement  and  a  neural  network 
with  data  obtained  from  a  PSRI  space  correlation,  and  a  space  domain  Goodman  - 
Schwarz  correlation  with  actual  space  domain  input  data. 

6.2  Identification  of  Scale  and  Rotation 

This  experiment  was  set  up  to  verify  the  use  of  a  PSRI  space  correlation  to  identify 
how  much  a  target  is  rotated  and  scaled  with  respect  to  a  template.  The  setup  was  to 
take  a  template  and  rotate  it  from  0  to  45  degrees  in  increments  of  5  degrees  and  at  each 
rotation,  perform  the  PSRI  space  correlation  with  the  original  template.  A  peak  search 
was  then  performed  on  the  correlation  plane  with  the  peak  location  and  value  being 
recorded  for  analysis.  The  process  was  then  repeated  for  a  template  that  had  first  been 
scaled  by  1/2  and  then  again  with  a  1/4  original  sized  template.  This  experiment  also 
demonstrated  which  type  of  correlation  would  work  best  and  yield  the  clearest  correla¬ 
tion  peaks.  The  Executive  program  contains  several  parameters  that  can  be  changed 
interactively.  The  modified  phase  or  "Linl  correlation  flag"  option  was  determined  to 
yield  the  best  results. 

The  Executive  program  contains  a  peak  search  routine  which  looks  for  maximum 


vertical  strips  that  are  35  pixels  wide  and  then  looks  for  the  maximum  value  within  this 
maximum  strip  [1:104-  105].  This  process  might  be  necessary  when  analyzing  complete 
input  scenes,  but  with  using  a  segmented  target  and  segmented  template,  a  more 
simplified  maximum  value  search  routine  gave  identical  results  and  required  much  less 
processing  time.  Also,  because  of  the  35  pixel  window  that  the  Executive  peak  search 
routine  uses,  and  the  fact  that  small  rotations  cause  only  small  shifts,  a  rotation  of  less 
than  6  degrees  will  cause  the  program  to  abort.  A  simple  modification  of  the  program 
that  would  include  a  wrap  around  of  the  data  for  small  shifts  would  cure  this  problem. 

The  Executive  program  for  rotating  an  image  was  very  useful  in  creating  the 
rotated  templates.  A  good  method  of  arbitrarily  scaling  a  template  containing  range 
data  was  not  found.  A  more  detailed  study  is  needed  on  how  detectors  collect  the  data 
and  therefore,  how  a  smaller  or  larger  target  physically  changes  the  values  of  each  indi¬ 
vidual  detector.  There  should  be  a  good  mathematical  approach  that  would  come  out  of 
such  a  study.  For  this  experiment,  scaling  by  1/2  and  1/4  was  accomplished  by  simply 
sampling  every  other  pixel  for  1/2  scaling  and  then  every  other  pixel  again  for  1/4  scal¬ 
ing.  Tables  6.1,  6.2,  and  6.3  show  the  results  of  this  experiment. 

This  data  shows  that  the  location  of  the  peak  in  the  PSRI  space  correlation  plane  is 
a  very  good  way  to  determine  the  scale  and  rotation  of  a  target  with  respect  to  a  given 
template.  The  data  also  indicates  that  rotations  and  scale  differences  can  be  calculated 
using  approximate  conversions  of  2.8  pixels  per  degree  rotation  and  30  pixels  per  2:1 
scale  change.  Also,  a  true  autocorrelation  will  yield  a  peak  at  the  0,0  location  which  is 
the  lower  left  comer  of  the  correlation  plane.  A  smaller  target  causes  the  peak  to  shift 
up  and  rotations  in  the  counterclockwise  direction  cause  the  peak  to  shift  to  the  right 
6.3  Classification 

The  classification  experiment  was  a  set  of  several  experiments.  This  section 
discusses  the  setup  for  each  experiment,  presents  the  results,  and  analyzes  some  of  the 


6.3.1  Experimental  Setup 

This  experiment  was  broken  into  three  main  sections.  There  was  classification 
using  distance  measurements,  classification  using  a  neural  network,  and  classification 
using  the  space  domain  Goodman  -  Schwarz  correlation.  The  classification  experiments 
that  use  distance  measurements  and  the  neural  network  use  data  obtained  from  a  7x7 
array  around  the  peak  of  a  PSRI  space  correlation.  Both  experiments  were  conducted  on 
six  sets  of  input  data  with  three  sets  created  from  laser  range  templates  and  three  sets 
created  from  binary  templates.  The  three  sets  of  files  are  shown  in  tables  6.4,  6.5,  and 
6.6.  Each  name  specifies  a  file  that  contains  the  data  of  the  PSRI  correlation  peak.  The 
first  pan  of  the  name  specifies  the  target.  The  middle  section  indicates  the  rotation,  if 
any,  of  the  target  and  whether  the  data  is  range  data  (tmp)  or  binary  data  (btmp).  The 
last  section  of  the  name  specifies  the  template  used.  For  example, 
R3083_rl0_tmp_3195.dat  indicates  that  this  is  the  range  data  correlation  peak  file 
created  using  for  a  target,  R3083  (a  side  view  of  a  tank)  that  had  been  rotated  by  10 
degrees  (rlO)  and  for  a  template  r3195  (a  side  view  of  a  tanker  truck).  Set  one  was 
setup  to  demonstrate  the  classification  between  true  autocorrelations  and  crosscorrela¬ 
tions.  The  true  autocorrelations  were  of  identical  targets  and  templates.  This  set  was 
used  to  demonstrate  a  "best  case"  scenario,  and  determine  if  there  was  any  point  in  trav¬ 
eling  farther  down  the  chosen  road.  If  the  experiments  could  not  classify  this  data,  there 
could  be  no  hope  of  classifying  in  a  more  robust  situation.  Set  two  was  setup  to  demon¬ 
strate  the  classification  between  rotation  autocorrelations  and  crosscorrelations.  Auto¬ 
correlations  were  to  include  a  number  of  rotated  versions  of  the  target  with  a  fixed  tem¬ 
plate.  Set  three  was  setup  to  test  the  complete  robustness  of  the  classification  process. 
The  theory  was  that  with  respect  to  the  correlation  peak,  a  truck  is  a  truck  N  .i  truck  and 
a  tank  is  a  tank  is  a  tank.  Therefore,  same  type  objects  that  are  at  similar,  !  <  not  neces¬ 
sarily  equal,  aspect  angles,  rotations,  and  scales  should  be  able  to  be  separ.iied  from  one 
another.  Finally,  as  stated  above,  a  comparison  was  made  between  the  um  of  range  data 


and  the  use  of  binary  input  data  for  classification. 

The  underlying  goal  of  this  thesis  was  to  determine  if  range  data  contained  an 
added  level  of  information  that  could  be  useful  in  classification.  Therefore,  the  exact 
same  classification  experiments  were  to  be  conducted  on  the  laser  range  templates  and 
the  binary  templates.  However,  a  fundamental  error  was  made  on  the  first  pass  through 
this  experiment.  The  Executive  program  that  creates  the  PSRI  space  of  the  targets  and 
templates  contains  a  variable  that  allows  the  user  to  set  the  range  of  frequencies  that  get 
mapped  into  the  PSRI  space.  Laser  range  data  changes  value  from  point  to  point  which 
requires  high  frequency  components.  Also,  lower  frequency  components  are  useful  in 
determining  the  overall  shape  of  an  object,  such  as  width  versus  height.  Therefore,  the 
decision  was  made  to  map  the  whole  range  of  frequencies  from  1  to  128  into  the  PSRI 
space.  When  the  binary  templates  were  first  transformed,  the  range  of  mapped  frequen¬ 
cies  were  left  at  the  default  values  built  into  Executive,  5  to  70.  With  the  resulting  set  of 
experimental  data,  no  meaningful  conclusions  could  be  drawn  between  using  laser  range 
input  and  using  binary  input  since  it  could  not  be  determined  whether  the  differences 
were  due  to  the  actual  change  in  input  data  or  the  change  in  frequency  mapping.  The 
templates  were  therefore  retransformed  using  the  same  1  to  128  frequency  mapping. 

The  final  experiment  in  classification  uses  the  space  domain  Goodman  -  Schwarz 
correlation.  This  experiment  was  performed  on  a  much  smaller  set  of  data  since  the 
correlation  by  itself  offers  no  real  hope  of  being  robust  in  rotation  or  scale.  It  must  be 
assumed  that  the  aspect  angle  of  the  target  is  known  and  can  be  matched.  It  is  also 
assumed  that  the  PSRI  space  correlation  identified  the  rotation  and  scale  and  that  a  prop¬ 
erly  rotated  and  scaled  template  is  available.  The  space  domain  correlation  was  per¬ 
formed  on  a  complete  unsegmented  laser  range  scene  to  demonstrate  the  robustness  with 
respect  to  clutter.  Therefore,  a  comparison  between  the  use  of  range  data  and  binary 
data  was  not  made.  Also,  tests  were  made  using  the  Goodman  -  Schwarz  correlation  to 
locate  partially  occluded  targets. 


6.3.2  Distance  Measurements 

The  distance  measurement  used  in  this  experiment  was  a  standard  euclidean  dis¬ 
tance  on  the  normalized  input  data.  This  euclidean  distance  was  measured  as 
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root  of  the  sum  of  the  squares  of  the  input.  The  next  question  was  what  to  use  as  a  refer¬ 
ence  point  to  measure  the  distances  from.  The  work  with  neural  networks  had  given  a 
good  feel  for  the  usefulness  in  training  a  classifier.  For  a  distance  measurement,  the 
training  involved  reading  in  a  number  of  autocorrelation  examples  and  determining  an 
average  location  for  these  points.  This  average  point  was  then  used  as  a  reference  for 
which  all  the  distances  in  the  set  were  measured.  There  was  no  a  priori  knowledge 
about  the  distance  values  and  the  hope  was  that  there  would  be  a  distinct  difference 
between  the  distances  of  the  autocorrelation  peaks  and  that  of  the  crosscorrelation 
peaks.  A  histogram  plot  of  the  distance  measurements  obtained  from  the  training  data 
was  used  to  determine  a  threshold  value  for  classifying  the  test  data.  Tables  6.11  ~  6.24 
show  the  results  of  this  experiment. 

These  results  indicate  that  the  normalized  PSRI  space  correlation  peaks  of  true 
autocorrelations  (set  1)  cluster  very  well  together.  Distance  measurements  allow  for  set¬ 
ting  a  threshold  that  can  classify  data  with  an  accuracy  rate  near  100%,  only  one  miss 
from  either  the  range  or  the  binary  data.  The  results  of  set  2  indicates  that  rotations  of 
the  target  with  respect  to  the  template  produce  little  movement  of  the  points  on  the  49 
space  hypersphere.  With  rotations  between  0  and  40  degrees,  classification  of  near 
100%  was  achieved.  However,  when  the  "a  tank  is  a  tank  is  a  tank"  approach  was  tested 
(set  3),  the  grouping  clusters  are  dispersed  into  regions  that  make  a  distance  measure¬ 
ment  virtually  useless.  The  numbers  will  indicate  .i  classification  accuracy  of  about 
65%,  depending  on  the  threshold  chosen,  but  this  is  only  slightly  better  than  strictly 
guessing.  Also,  since  the  data  is  distributed  very  close  around  the  threshold  value, 


assigning  any  type  of  figure-of-merit  criteria  would  yield  even  worse  results. 

A  comparison  of  the  binary  data  results  to  that  of  the  range  results  gives  no  indica¬ 
tion  that  one  type  of  data  is  better  than  the  other  for  this  type  of  classification.  This  does 
not  imply  that  the  range  data  does  not  contain  useful  information,  it  simply  means  that 
the  testing  method  of  distance  measurements  between  PSRI  space  correlation  peaks 
does  not  make  use  of  the  information  that  is  available. 

6.3J  Neural  Networks 

The  neural  network  used  in  this  experiment  was  the  multilayer  perceptron  dis¬ 
cussed  in  appendix  A.  As  discussed  in  appendix  A,  a  multilayer  perceptron  creates 
decision  regions  from  a  set  of  training  files  and  then  classifies  test  data  from  these  deci¬ 
sion  regions.  The  experiment  using  distance  measurements  showed  that  the  autocorrela¬ 
tions  in  sets  one  and  two  were  "reasonably"  clustered  together  and  distinctly  separable 
from  the  cross  correlations.  These  sets,  therefore,  provided  a  good  testing  ground  to 
determine  if  the  net  was  operating  properly.  For  all  the  tests,  the  number  of  nodes  for 
each  hidden  layer  in  the  network  were  chosen  as  suggested  in  appendix  A.  All  initial 
values  for  the  weights  and  thresholds  were  chosen  from  a  uniform  random  distribution 
centered  at  0  with  a  radius  of  0.5.  All  tests  were  run  with  an  eta  gain  term  equal  to  0.25 
and  an  alpha  momentum  term  equal  to  0.70.  The  results  of  the  neural  network 
classification  are  shown  in  Tables  6.1 1  -  6.24. 

The  results  for  set  1  data  were  obtained  with  a  total  of  1000  training  file  iterations. 
The  range  data  was  able  to  be  trained  with  50  first  hidden  layer  nodes  and  2  second  hid¬ 
den  layer  nodes  while  the  binary  data  required  100  first  hidden  layer  nodes  and  2  second 
hidden  layer  nodes.  Both  the  binary  and  range  data  results  showed  near  perfect 
classification,  depending  on  the  threshold  chosen.  The  immediate  advantage  seen  of  a 
neural  network  to  that  of  a  distance  measurement  for  classification  is  in  the  figure-of- 
merit.  A  properly  trained  neural  network  tends  to  make  strong  decisions  one  way  or  the 


The  results  for  set  2  data  were  obtained  with  a  total  of  2000  training  file  iterations. 
Both  types  of  data  were  able  to  be  trained  with  150  first  hidden  layer  nodes  and  4  second 
hidden  layer  nodes.  Again,  classification  accuracy  of  approximately  95%  resulted. 

The  results  for  set  3  data  were  obtained  with  a  total  of  45,000  training  file  itera¬ 
tions.  The  results  changed  very  little  after  about  25,000  training  file  iterations  but  the 
net  was  allowed  to  run  in  the  attempt  of  completely  classifying  the  training  data.  This 
goal  was  not  reached.  With  both  the  range  data  and  the  binary  data,  the  network  was 
trained  with  200  first  hidden  layer  nodes  and  5  second  hidden  layer  nodes.  Note  that  the 
same  two  files  in  both  the  range  data  and  the  binary  data  case  were  unable  to  be  trained. 
This  may  be  an  indication  that  with  the  chosen  features  and  the  method  of  classification, 
much  of  the  dominating  information  is  the  same  between  range  and  binary  data.  The 
overall  classification  accuracy  rate  with  either  type  of  data  was  at  85%  but  when  only 
the  test  data  was  considered,  this  rate  drops  to  just  below  80%.  These  results  arc  very 
promising  in  that  they  are  much  better  than  the  standard  distance  measurements  and 
with  a  far  greater  figure  of  merit  able  to  be  assigned.  The  classification  rate  of  just  the 
same  class,  different  image,  test  correlations  were  poor.  However,  with  the  very  good 
classification  obtained  in  the  training  data,  it  seems  reasonable  to  assume  that  better 
results  would  be  obtained  with  a  larger  data  base  to  train  with.  One  of  the  training  files 
that  was  not  able  to  be  trained  was  a  Tong  segmented  tanker  truck  that  was  about  half 
the  size  of  the  Ruck  segmented  template.  There  are,  of  coarse,  going  to  be  limitations 
on  the  amount  of  variance  in  rotation  and  size.  More  study  needs  to  be  done  to  deter¬ 
mine  exactly  what  these  limitations  are.  Also,  it  may  be  important  to  keep  as  much 
similarity  as  possible  between  the  template  and  target  so  Tong  data  may  work  better 
when  correlated  with  other  Tong  data. 

6.3.4  Space  Domain  Correlation 

The  final  experiment  conducted  in  this  thesis  was  an  attempt  at  locating  and  classi¬ 
fying  a  target  using  the  Goodman-Schwarz  space  domain  correlation  as  discussed  in 


chapter  V.  This  was  a  relatively  simple  experiment  that  was  set  up  to  demonstrate  the 
theory  and  determine  the  usefulness  in  a  cluttered  environment.  First,  a  range  image  was 
created  that  contained  multiple  targets.  The  targets  within  the  image  had  to  be  ones  for 
which  good  templates  were  available.  Such  an  image  was  not  available  so  templates 
were  overlaid  onto  a  range  image.  The  final  range  image  contained  3  targets,  3033  (a 
side  tank),  3028  (a  front  tank),  and  3190_pl65  (a  side  tanker).  The  range  image  is 
shown  in  fig  6.1.  A  value  of  25  was  then  added  to  each  pixel  in  each  of  the  templates  so 
as  to  insure  different  absolute  values.  Some  care  had  to  be  taken  to  insure  that  neither 
the  targets  or  templates  contained  range  jumps.  Range  jumps  cause  large  values  when 
the  gradient  operation  is  performed  and  therefore  cause  havoc  in  the  correlation. 


those  sections.  The  idea  for  using  this  multiple  stage  template  matching  system  was 
taken  from  Vanderburg  and  Rosenfeld  [21].  The  order  in  which  the  template  subsec¬ 
tions  were  chosen  is  shown  in  figure  6.2. 
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Fig  6.2 

Order  of  Template  Subsections 

The  second  addition  was  to  first  smooth  the  data  of  both  the  image  and  the  tem¬ 
plate.  The  thought  was  that  in  a  real  situation,  there  would  be  an  unpredictable  amount 
of  noise  in  the  image  that  would  cause  the  target  to  differ  from  the  template.  It  was 
thought  that  in  a  real  scene,  no  single  pixel  should  be  outside  the  range  of  adjoining  pix¬ 
els  except  for  some  sharp  edges.  If  these  edges  get  slightly  rounded  in  the  process  of 
attenuating  a  good  deal  of  spurious  noise,  its  still  worth  the  effort.  In  this  experiment, 
the  template  contained  the  same  noise  as  the  target  so  the  true  usefulness  of  this  process 
could  not  be  tested. 

The  third  addition  was  that  after  the  gradient  operation  was  complete,  a  two  pixel 
border  around  the  template  was  eliminated.  The  reason  for  this  was  that  since  the  back¬ 
ground  of  the  scene  was  unknown,  there  was  no  hope  of  matching  the  borders  of  a 


gradient  template.  So,  the  correlation  was  performed  with  the  interior  of  the  gradient 
template. 

Each  template  properly  located  the  proper  target  using  the  gradient  operation 
method.  However,  the  peak  values  only  achieved  about  20%  of  the  possible  maximum 
threshold.  This  corresponds  to  entering  0.8  for  the  sum  threshold  response  in  the  Good¬ 
man  -  Schwarz  program.  Without  further  study,  it  would  be  hard  to  assign  a  threshold 
for  the  purpose  of  classification.  Using  the  average  equalization  method,  the  two  large 
targets  were  located  using  a  threshold  criteria  of  98%  (0.02  in  the  Goodman  -  Schwarz 
program).  However,  the  smaller  target  could  not  be  located.  This  could  be  a  limitation 
on  the  projected  area  of  a  target  (ie.  number  of  pixels  with  which  to  classify  with).  The 
multistage  correlation  allowed  for  much  faster  processing  time,  reducing  the  total 
number  of  calculations  by  over  80%. 


Fig  6.3 

Range  Image  for  Testing  with  Partially  Occluded  Targets 


Finally,  a  test  was  performed  to  determine  if  this  multistage  Goodman  -  Schwarz 
correlation  could  be  used  to  locate  partially  occluded  targets.  The  partially  occluded 


targets  were  created  by  strategically  placing  blocks  into  the  previous  range  picture.  The 
resulting  picture  is  shown  in  fig  6.3.  The  theory  was  to  set  the  sum  threshold  equal  to 
one  so  that  all  sectors  would  be  used  at  every  shift  location.  A  separate  threshold  was 
then  set  for  the  sectors.  This  threshold  would  determine  if  a  particular  sector  was  to  be 
counted  as  a  match.  A  counter  was  maintained  to  track  how  many  sectors  at  each  loca¬ 
tion  reached  above  the  threshold.  After  the  complete  correlation  was  run,  the  shift  loca¬ 
tions  with  the  top  number  of  sectors  would  specify  the  location  of  the  target. 

Since  previous  problems  were  encountered  using  the  gradient  method,  only  the 
average  equalization  method  was  used  in  this  test.  The  two  large  targets  were  located 
using  this  method  but  the  small  target  was  unable  to  be  found.  For  the  target  in  the 
lower  left  comer,  only  three  shift  locations  in  the  scene  had  six  sectors  reach  above  a 
threshold  of  98%  (0.02  sub  tolerance)  and  all  three  were  located  around  the  center  of  the 
target.  For  the  target  in  the  middle  of  the  image,  two  shift  locations  had  five  sectors 
reach  above  99%,  both  around  the  center  of  the  target  The  partially  occluded  tanker 
truck  in  the  upper  right  comer  could  not  be  located  at  any  threshold.  This  was  expected 
since  the  total  target  couldn’t  be  found.  This  target  is  relatively  small  and  with  the 
chosen  block,  has  aoout  35%  of  its  sector  type  information  destroyed.  At  a  threshold  of 
99%  there  were  over  1000  shift  locations  that  had  six  sector  matches,  none  of  those 
were  on  the  target.  Since  the  target  is  relatively  flat,  the  small  sectors  allowed  many 
locations  within  the  image  to  be  matched  to  the  target. 

This  research  effort  contains  some  very  interesting  and  promising  results,  however, 
there  are  still  many  areas  that  need  to  be  further  explored.  Conclusions  reached  and 
recommendations  for  further  research  are  discussed  in  the  next  chapter. 
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Table  6.1 

Correlation  Peak  Location  and  Values  for 
Template  and  Same  Scale  Rotated  Targets 
(Note:  Rotation  shifts  2.8  pixels  /  degree  rotation.) 


File  Name 


R3083_tmp_3083.dat 
R 308 3_r5_tmp_308  3  .dat 
R308 3_r  1 0_tmp_308 3.dat 
R3083_rl5_tmp_3083.dat 
R 308 3_r20_tmp_308 3 .dat 
R3083_r25_tmp_3083.dat 
R3083_r30_tmp_3083.dat 
R3083_r35_tmp_3083.dat 
R3083_r40_tmp_3083.dat 
R3083  r45_tmn  3083.dat 


Table  6.2 

Correlation  Peak  Location  and  Values  for 
Template  and  1/2  Scaled  Rotated  Targets 
(Note:  Scale  shifts  32  pixels  for  a  2:1  scale  change.) 


File  Name 


R 308 3_s2_tmp_308 3.dat 
R308 3_s2r5_tmp_308 3 .dat 
R308 3_s2r  1 0_tmp_308 3 .dat 
R3083_s2rl5_tmp_3083.dat 
R3083_s2r20_tmp_3083.dat 
R308 3_s2r25_tmp_308 3.dat 
R308 3_s2r  30_tmp_308 3 .dat 
R3083_s2r35_tmp_3083.dat 
R308 3_s2r40_tmp_308 3 .dat 
R3083  s2r45  imp  3083.dat 


Peak  Location 


0,32 


57.32 

70.32 

85.32 

98.32 

113.32 

126.32 


Peak  Value 


57692 

54486 

53069 

54784 
53173 
53290 
54218 

54785 
54686 
55389L 


Table  6.3 

Correlation  Peak  Location  and  Values  for 
Template  and  1/4  Scaled  Rotated  Targets 
(Note:  Both  scale  and  rotation  can  be  calculated.) 

File  Name  Peak  Location  Peak 

R3083_s4_tmp_3083.dat  0,62  53 

R3083_s4r5_tmp_3083.dat  15,62  42 

R3083_s4rl0_tmp_3083.dat  27,61  42 

R3083_s4rl5_tmp_3083.dat  42,62  4" 

R3083_s4r20_tmp_3083.dat  "  AC 

R308 3_s4r25_tmp_3083.dat 
R3083_s4r30_tmp_3083.dat 
R3083_s4r35_tmp_3083.dat 
R308 3_s4r40_tmp_308 3 .dat 
R3083  s4r45_tmp  3083.dat 


Peak  Location 
0,62 

15,62 

27.61 

42.62 

fO 

Peak  Value 
53439 
43481 
45756 
47401 
49740 

69,62 

51297 

83,62 

46519 

101,62 

48028 

110,61 

4'T040 

125.62 
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Table  6.4 

Files  for  Set  1  Experiments 


File  Name 

Image 

Template 

Training  Class  1 

R3028_tmp_3028.dat 

Front  Tank 

Front  Tank 

R307 4_tmp_307 4.dat 

Side  Tank 

Side  Tank 

R3066  tmp_3066.dat 

Front  Tank 

Front  Tank 

R3088  tmp_3088.dat 

Front  Tank 

Front  Tank 

R3083  tmp  3083.dat 

Side  Tank 

Side  Tank 

R3195  tmp  3195.dat 

Side  Tanker 

Side  Tanker 

R3197_jmp_3197.dat 

Front  Tank 

Front  Tank 

R32 1 5_tmp_32 1 5.dat 

Front  Jeep 

Front  Jeep 

R3197tr  tmp  3197tr.dat 

Side  Tanker 

Side  Tanker 

Training  Class  2 

R3028  rl0_tmp_3195.dat 

Front  Tank 

Side  Tanker 

r3083_rl0  tmp  3195.dat 

Side  Tank 

Side  Tanker 

R3195_rl0  tmp_3028.dat 

Side  Tanker 

Front  Tank 

R3033  tmp  3028.dat 

Side  Tank 

Front  Tank 

R3190  p47_tmp_3090.dat 

Side  Tanker 

Front  Tank 

R3033  tmp  3l95.dat 

Side  Tank 

Side  Tanker 

R3190  pl65  tmp_3090.dat 

Side  Tanker 

Front  Tank 

R3090  rlO  tmp  3195.dat 

Front  Tank 

Side  Tanker 

R3197tr  tmp  3066.dat 

Side  Tanker 

Front  tank 

Test  Class  1 

R3042_tmp  3042.dat 

Side  Tank 

Side  Tank 

R3051  tmp  3051.dat 

Front  Tank 

Front  Tank 

R3090  tmp  3090.dat 

Front  Tank 

Front  Tank 

R3190  pl65  tmp  3190  pl65.dat 

Side  Tanker 

Side  Tanker 

R3190  p221  tmp  3190  p221.dat 

Side  Tanker 

Side  Tanker 

R3190_p47_tmp_3 190_p47.dat 

Side  Tanker 

Side  Tanker 

R3195Tank  tmp  3195Tank.dat 

Side  Tank 

Side  Tank 

R3190  T227  tmp  3190  t227.dat 

Side  Tank 

Side  Tank 

R3033  tmp  3033.dat 

Side  Tank 

Side  Tank 

Test  Class  2 

R3051  tmp  3l95.dat 

Front  Tank 

Side  Tanker 

R3195  rl0_tmp_3028.dat 

Side  Tanker 

Front  Tank 

R3 1 95T  ank_tmp_3028 .dat 

Side  Tank 

Front  Tank 

R3197tr  tmp  3028.dat 

Side  Tanker 

Front  Tank 

R3197tr  tmp  3083.dat 

Side  Tanker 

Side  Tank 

R3190_p221_tmp_3083.dat 

Side  Tanker 

Side  Tank 

R3090  tmp  3083.dat 

Front  Tank 

Side  Tank 

R3074  tmp  3195.dat 

Side  Tank 

Side  Tanker 

R3042  tmp  3l95.dat 

Side  Tank 

Side  Tanker 
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Table  6.5 

Training  Files  for  Set  2  Experiments 


File  Name 

Image 

TemDlate 

Training  Class  1 

R3028  tmp  3028.dat 

Front  Tank 

Front  Tank 

R3028  r40  tmp  3028.dat 

Rotated  Front  Tank 

Front  Tank 

R3066  tmp  3066.dat 

Front  Tank 

Front  Tank 

R3066  r40  tmp  3066.dat 

Rotated  Front  Tank 

Front  Tank 

R3074  tmp  3074.dat 

Side  Tank 

Side  Tank 

R3074  r40  imp  3074.dat 

Rotated  Side  Tank 

Side  Tank 

R3088  tmp  3088.dat 

Front  Tank 

Front  Tank 

R3088_r40  tmp_3088.dat 

Rotated  Front  Tank 

Front  Tank 

R3083  tmp  3083.dat 

Side  Tank 

Side  Tank 

R3083  r40  tmp  3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3195  tmp  3195.dat 

Side  Tanker 

Side  Tanker 

R3195  r40  tmp  3l95.dat 

Rotated  Side  Tanker 

Side  Tanker 

R3042  tmp  3042.dat 

Side  Tank 

Side  Tank 

R3042  r40  tmD  3042.dat 

Rotated  Side  Tank 

Side  Tank 

Training  Class  2 

R3028  RIO  tmp  3195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3066  tmp_3195.dat 

Front  Tank 

Side  Tanker 

R3066  tmp  3083.dat 

Front  Tank 

Side  Tank 

R3074  tmp  3195.dat 

Side  Tank 

Side  Tanker 

R3074  tmp  3090.dat 

Side  Tank 

Front  Tank 

R3088  tmp_3190  p47.dat 

Front  Tank 

Side  Tanker 

R3088  tmp  3083.dat 

Front  Tank 

Side  Tank 

R3083  rlO  tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3083_rl0  tmp_3028.dat 

Rotated  Side  Tank 

Front  Tank 

R3195  rlO  tmp  3028.dat 

Rotated  Side  Tanker 

Front  Tank 

R3042  tmp  3195.dat 

Side  Tank 

Side  Tanker 

R3042  tmD  3090.dat 

Side  Tank 

Front  Tank 

Table  6.6 

Test  Files  for  Set  2  Experiments 


File  Name 

Image 

Template 

Test  Class  1 

R3028  rlO  tmp  3028.dat 

Rotated  Front  Tank 

Front  Tank 

R3028  r20  tmp  3028.dat 

Rotated  Front  Tank 

Front  Tank 

R^028  r30  tmp  3028.dat 

Rotated  Front  Tank 

Front  Tank 

R.h><>6  rlO  tmp  3066.dat 

Rotated  Front  Tank 

Front  Tank 

R3066  r20  tmp_3066.dat 

Rotated  Front  Tank 

Front  Tank 

R3066  r30  tmp  3066.dat 

Rotated  Front  Tank 

Front  Tank 

R3074  rlO  tmp  3074.dat 

Rotated  Side  Tank 

Side  Tank 

R3074  r20  tmp  3074.dat 

Rotated  Side  Tank 

Side  Tank 

R3074  r30  tmp_3074.dat 

Rotated  Side  Tank 

Side  Tank 

R3088  rlO  tmp  3088.dat 

Rotated  Front  Tank 

Front  Tank 

R3088  r20  tmp  3088.dat 

Rotated  Front  Tank 

Front  Tank 

R3088  r30  tmp  3088.dat 

Rotated  Front  Tank 

Front  Tank 

R3083  rlO  tmp  3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3083  r20  tmp_3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3083  r30  tmp  3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3195  rlO  tmp  3195.dat 

Rotated  Side  Tanker 

Side  Tanker 

R3195  r20  tmp  3195.dat 

Rotated  Side  Tanker 

Side  Tanker 

R3195  r30  tmp  3195.dat 

Rotated  Side  Tanker 

Side  Tanker 

R3042  rlO  tmp  3042.dat 

Rotated  Front  Tank 

Front  Tank 

R3042  r20  tmp  3042.dat 

Rotated  Front  Tank 

Front  Tank 

R3042  r30  tmp  3042.dat 

Rotated  Front  Tank 

Front  Tank 

Test  Class  2 

R3028  r40  tmp  3195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3066  r40  tmp  3195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3066  r20  tmp  3195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3066  r40  tmp_3083.dat 

Rotated  Front  Tank 

Side  Tank 

R3066  r20  tmp  3083.dat 

Rotated  Front  Tank 

Side  Tank 

R3074  r40  tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3074  r20  tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3074  r40  tmp  3090.dat 

Rotated  Side  Tank 

Front  Tank 

R3074  t20  tmp_3090.dat 

Rotated  Side  Tank 

Front  Tank 

R3088  r20  tmp_3195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3088  r40  tmp  3195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3088  r20  tmp_3083.dat 

Rotated  Front  Tank 

Side  Tank 

R3088  r40  tmp  3083.dat 

Rotated  Front  Tank 

Side  Tank 

R3042  r20  tmp_3090.dat 

Rotated  Side  Tank 

Front  Tank 

R3042  r40  tmp_3090.dat 

Rotated  Side  Tank 

Front  Tank 

R3042  r20  tmp_3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3042  r40  tmp_3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3083  r20  tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3083  r40  tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3083  r20  tmp  3028.dat 

Rotated  Side  Tank 

Front  Tank 

R3083_r40  tmp_3028.dat 

Rotated  Side  Tank 

Front  Tank 

R3195  r40  tmp  3028.dat 

Rotated  Side  Tanker 

Front  Tank 

* 


Table  6.7 

Class  1  Training  Files  for  Set  3  Experiments 


File  Name 

Image 

Template 

Training  Class  1 

R3197tr  tmp  3195.dat 

Side  Tanker 

Side  Tanker 

R3 1 90_p  1 65_tmp_3 1 95  .dat 

Side  Tanker 

Side  Tanker 

R3 1 90_p22 1  _tmp_3 1 95  .dat 

Side  Tanker 

Side  Tanker 

R3074_tmp_3083.dat 

Side  Tank 

Side  Tank 

R3051  tmp  3090.dat 

Front  Tank 

Front  Tank 

R3042_tmp_3083.dat 

Side  Tank 

Side  Tank 

R3090_r40  tmp_3028.dat 

Rotated  Front  Tank 

Front  Tank 

R3090_tmp_3028 .dat 

Front  Tank 

Front  Tank 

R3033  r40  tmp_3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3033  rlO  tmp  3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3033  tmp_3083.dat 

Side  Tank 

Side  Tank 

R3028  tmp_3028.dat 

Front  Tank 

Front  Tank 

R3028  r40  tmp  3028.dat 

Rotated  Front  Tank 

Front  Tank 

R3066  tmp  3066.dat 

Front  Tank 

Front  Tank 

R3066  r40  tmp  3066.dat 

Rotated  Front  Tank 

Front  Tank 

R3074  tmp  3074.dat 

Side  Tank 

Side  Tank 

R3074_r40  tmp_3074.dat 

Rotated  Side  Tank 

Side  Tank 

R3088  tmp_3088.dat 

Front  Tank 

Front  Tank 

R3088  r40  tmp  3088.dat 

Rotated  Front  Tank 

Front  Tank 

R3083_tmp  3083.dat 

Side  Tank 

Side  Tank 

R3083  r40  tmp  3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3 1 95_tmp_3 1 95  .dat 

Side  Tanker 

Side  Tanker 

R3195  r40  tmp  3195.dat 

Rotated  Side  Tanker 

Side  Tanker 

R3042_tmp_3042.dat 

Side  Tank 

Side  Tank 

R3042  r40  tmD  3042.dat 

Rotated  Side  Tank 

Side  Tank 

Table  6.8 

Class  2  Training  Files  for  Set  3  Experiments 


File  Name 

Image 

Template 

Training  Class  2 

R3197TR  tmp  3028.dat 

Side  Tanker 

Front  Tank 

R3197TR  tmp  3083.dat 

Side  Tanker 

F/ont  Tank 

R3190  p221  tmp  3090.dat 

Side  Tanker 

Front  Tank 

R3190_p221_tmp_3083.dat 

Side  Tanker 

Side  Tank 

R3 190_p  1 65_tmp_3090.dat 

Side  Tanker 

Front  Tank 

R3190  pi 65  tmp  3083.dat 

Side  Tanker 

Side  Tank 

R3051_tmp_3195.dat 

Front  Tank 

Side  Tanker 

R305  l_tmp_3083.dat 

Front  Tank 

Side  Tank 

R 3090_tmp_308 3 .dat 

Front  Tank 

Side  Tank 

R3090_tmp_3195.dat 

Front  Tank 

Side  Tanker 

R3033_tmp_3028.dat 

Side  Tank 

Front  Tank 

R3033  tmp  3195.dat 

Side  Tank 

Side  Tanker 

R3028_R  1 0_tmp_3 1 95  .dat 

Rotated  Front  Tank 

Side  Tanker 

R3066_tmp_3 1 95.dat 

Front  Tank 

Side  Tanker 

R3066  tmp  3083.dat 

Front  Tank 

Side  Tank 

R3074_tmp  3195.dat 

Side  Tank 

Side  Tanker 

R307 4_tmp_3090.dat 

Side  Tank 

Front  Tank 

R3088  tmp  3195.dat 

Front  Tank 

Side  Tanker 

R3088  tmp  3083.dat 

Front  Tank 

Side  Tank 

R3083  rlO  tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3083  rlO  tmp  3028.dat 

Rotated  Side  Tank 

Front  Tank 

R3195_rl0_tmp_3028.dat 

Rotated  Side  Tanker 

Front  Tank 

R3042_tmp_3195.dat 

Side  Tank 

Side  Tanker 

R3042  tmp  3090.dat 

Side  Tank 

Front  Tank 

Table  6.9 

Class  1  Test  Files  for  Set  3  Experiments 


File  Name 

Image 

Tenmlate 

Test  Class  1 

R3 1 90_tmp_308 3 .dat 

Side  Tank 

Side  Tank 

R3088_tmp_3090.dat 

Front  Tank 

Front  Tank 

R3035_tmp_308  3  .dat 

Side  Tank 

Side  Tank 

R3066  tmp  3090.dat 

Front  Tank 

Front  Tank 

R3190_p47_tmp_3195.dat 

Side  Tanker 

Side  Tanker 

R3197TR  r40  tmp  3195.dat 

Rotated  Side  Tanker 

Side  Tanker 

R3195TANK  tmp  3083.dat 

Side  Tank 

Side  Tank 

R3195TANK_r40_tmp_3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3090_r30_tmp_3028 .dat 

Rotated  Front  Tank 

Front  Tank 

R3090  r20  tmp  3028.dat 

Rotated  Front  Tank 

Front  Tank 

R3090_r  1 0_tmp_3028  .dat 

Rotated  Front  Tank 

Front  Tank 

R303 3_r  30_tmp_308 3 .  dat 

Rotated  Side  Tank 

Side  Tank 

R303  3_r20_tmp_3083 .dat 

Rotated  Side  Tank 

Side  Tank 

R3028_r  1 0_tmp_3028 .dat 

Rotated  Front  Tank 

Front  Tank 

R3028_r20_tmp_3028.dat 

Rotated  Front  Tank 

Front  Tank 

R3028_r30_tmp_3028  .dat 

Rotated  Front  Tank 

Front  Tank 

R3066_r  1 0_tmp_3066.dat 

Rotated  Front  Tank 

Front  Tank 

R3066_r20_tmp_3066.dat 

Rotated  Front  Tank 

Front  Tank 

R3066_r30_tmp_3066.dat 

Rotated  Front  Tank 

Front  Tank 

R3074  rlO  tmp  3074.dat 

Rotated  Side  Tank 

Side  Tank 

R3074_r20_tmp_3074.dat 

Rotated  Side  Tank 

Side  Tank 

R3074  r30  tmp  3074.dat 

Rotated  Side  Tank 

Side  Tank 

R3088  rlO  tmp  3088.dat 

Rotated  Front  Tank 

Front  Tank 

R3088_r20_tmp_3088.dat 

Rotated  Front  Tank 

Front  Tank 

R3088  r30  tmp  3088.dat 

Rotated  Front  Tank 

Front  Tank 

R3083_rl0_tmp_3083.dat 

Rotated  Side  Tank 

Side  Tank 

R308 3_r20_tmp_308 3 .dat 

Rotated  Side  Tank 

Side  Tank 

R3083_r30_tmp_3083.dat 

Rotated  Side  Tank 

Side  Tank 

R3 1 95_r  1 0_tmp_3 1 95  .dat 

Rotated  Side  Tanker 

Side  Tanker 

R3 1 95  _r20_tmp_3 1 95.dat 

Rotated  Side  Tanker 

Side  Tanker 

R3 1 95_r30_tmp_3 1 95  .dat 

Rotated  Side  Tanker 

Side  Tanker 

R3042_r  1 0_tmp_3042.dat 

Rotated  Front  Tank 

Front  Tank 

R3042_r20_tmp_3042.dat 

Rotated  Front  Tank 

Front  Tank 

R3042  r30  tmD  3042.dat 

Rotated  Front  Tank 

Front  Tank 

a 


Table  6.10 

Class  2  Test  Files  for  Set  3  Experiments 


File  Name 

Image 

Template 

Test  Class  2 

R3195TANK_tmp_3028.dat 

Side  Tank 

Front  Tank 

R3195TANK  tmp  3195.dat 

Side  Tank 

Side  Tanker 

R3197TR  tmp  3090.dat 

Side  Tanker 

Front  Tank 

R3197TR_tmp_3083.dat 

Side  Tanker 

Side  Tank 

R3190  p47  tmp  3090.dat 

Side  Tanker 

Front  Tank 

R3190  p47  tmp  3083.dat 

Side  Tanker 

Side  Tank 

R3190  T227  tmp  3090.dat 

Side  Tank 

Front  Tank 

R3190_T227_tmp_3195.dat 

Side  Tank 

Side  Tanker 

R3035_tmp_3090.dat 

Side  Tank 

Front  Tank 

R3035  tmp  3195.dat 

Side  Tank 

Side  Tanker 

R3090_rl0_tmp_3083.dat 

Rotated  Front  Tank 

Side  Tank 

R3090_r  1 0_tmp_3 1 95.dat 

Rotated  Front  Tank 

Side  Tanker 

R3090_r20_tmp_3083.dat 

Rotated  Front  Tank 

Side  Tank 

R 3090_r30_tmp_308 3 .  dat 

Rotated  Front  Tank 

Side  Tank 

R3090  r20  tmp  3195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3090_r30_tmp_3 195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3033_r20_tmp  3028.dat 

Rotated  Side  Tank 

Front  Tank 

R3033_r30_tmp  3028.dat 

Rotated  Side  Tank 

Front  Tank 

R3033_r20_tmp_3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3033_r30_tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R302 8_r40_tmp_3 1 95  .dat 

Rotated  Front  Tank 

Side  Tanker 

R3066_r40_tmp_3 195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3066  r20  tmp  3195.dat 

Rotated  Front  Tank 

Side  Tanker 

R3066_r40_tmp_3083.dat 

Rotated  From  Tank 

Side  Tank 

R3066_r20_tmp_3083.dat 

Rotated  Front  Tank 

Side  Tank 

R3074  r40  tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3074  r20  tmp  3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3074_r40_tmp_3090.dat 

Rotated  Side  Tank 

Front  Tank 

R 307 4_r20_tmp_3090.dat 

Rotated  Side  Tank 

Front  Tank 

R 308 8_r20_tmp_3 1 95  .dat 

Rotated  Front  Tank 

Side  Tanker 

R3088_r40_tmp_3 195.dat 

Rotated  Front  Tank 

Side  Tanker 

R 308 8_r20_tmp_308 3.dat 

Rotated  Front  Tank 

Side  Tank 

R 308 8_r40_tmp_308 3 .dat 

Rotated  Front  Tank 

Side  Tank 

R3042  r20  tmp  3090.dat 

Rotated  Side  Tank 

Front  Tank 

R3042_r40_tmp_3090.dat 

Rotated  Side  Tank 

Front  Tank 

R3042_r20_tmp_3 195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3042_r40_tmp_3 195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3083_r20_tmp_3195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3083_r40_tmp_3 195.dat 

Rotated  Side  Tank 

Side  Tanker 

R3083_r20_tmp_3028.dat 

Rotated  Side  Tank 

Front  Tank 

R3083  r40  tmp  3028.dat 

Rotated  Side  Tank 

Front  Tank 

R3195  r40  tmo  3028.dat 

Rotated  Side  Tanker 

Front  Tank 

Table  6.11 

Classification  Results  for  Set  1  Range  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net  i 

Node  1 

Node  2 

Training  Class  1 

R3028_tmp_3028.dat 

0.0724 

0.9631 

0.0364 

R3074_tmp_3074.dat 

0.0388 

0.9629 

0.0366 

R3066_tmp_3066.dat 

0.1199 

0.9631 

0.0364 

R3088_tmp_3088.dat 

0.0783 

0.9631 

0.0364 

R3083  tmp  3083.dat 

0.0806 

0.9625 

0.0370 

R3195_tmp_3195.dat 

0.1298 

0.9546 

0.0448 

R3 1 97_tmp_3 1 97  .dat 

0.0666 

0.9631 

0.0364 

R32 1 5_tmp_32 1 5.dat 

0.1088 

0.9631 

0.0363 

R3197tr  tmp  3197tr.dat 

0.1365 

0.9143 

0.0848 

Training  Class  2 

R3028  rlO  tmp  3195.dat 

0.2721 

0.0399 

0.9604 

R3083  rlO  tmp  3195.dat 

0.2756 

0.0408 

0.9595 

R3 1 95_r  1 0_tmp_3028.dat 

0.2355 

0.0739 

0.9264 

R3033  tmp  3028.dat 

0.2129 

0.0805 

0.9198 

R3 190_p47_tmp_3090.dat 

0.2144 

0.0521 

0.9482 

R3033_tmp_3l95.dat 

0.2876 

0.0397 

0.9606 

R3190  pi 65  tmp  3090.dat 

0.2142 

0.0498 

0.9504 

R3090_rl0_tmp_3195.dat 

0.2784 

0.0391 

0.9611 

R3197tr  tmp  3066.dat 

0.3102 

0.0387 

0.9615 

Test  Class  1 

R3042  tmp  3042.dat 

0.0682 

0.9631 

0.0364 

R3051  tmp  305 1  .dat 

0.0942 

0.9631 

0.0364 

R3090_tmp_3090.dat 

0.1734* 

0.9631 

0.0363 

R3190_pl65  tmp  3190  pl65.dat 

0.0437 

0.9624 

0.0371 

R3 1 90_p22 1  _tmp_3 1 90_p22 1  .dat 

0.0834 

0.9623 

0.0371 

R3 1 90_p47_tmp_3 1 90_p47.dat 

0.0514 

0.9628 

0.0366 

R3195Tank  tmp  3195Tank.dat 

0.1138 

0.9579 

0.0415 

R3 190_T227_tmp_3 190_t227.dat 

0.1214 

0.9631 

0.0363 

R3033  tmp  3033.dat 

0.4311 

0.1164 

0.0365 

Test  Class  2 

R305 1  _tmp_3 1 95.dat 

0.2707 

0.0411 

0.9592 

R3 1 95_r  1 0_tmp_3028 .dat 

0.2355 

0.0739 

0.9264 

R3 1 95T  ank_tmp_3028 .dat 

0.1784* 

0.1866 

0.8135 

R3 1 97  tr_tmp_3028 .dat 

0.3136 

0.0387 

0.9615 

R3197tr  tmp  3083.dat 

0.3157 

0.0386 

0.9616 

R3 1 90_p22 1  _tmp_308  3  .dat 

0.2542 

0.0425 

0.9577 

R3090_tmp_308  3  .dat 

0.2673 

0.0417 

0.9585 

R307 4_tmp_3 1 9  5 .  dat 

0.2781 

0.0394 

0.9609 

R3042  tmp  3195.dat 

0.2915 

0.0392 

0.9610 

*  Represents  a  misclassified  result  or  classification  with  a  very  low  figure  of  merit. 
(Note:  With  thresholds  of  0.8  and  0.2,  the  neural  net 
gives  perfect  results  with  an  excellent  figure  of  merit.) 


Table  6.12 

Classification  Results  for  Set  1  Binary  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net 

Node  1 

Node  2 

Training  Class  1 

R3028_btmp_3028.dat 

OBWJIICIriM 

0.0301 

R3074_btmp_3074.dat 

0.0303 

R3066_btmp_3066.dat 

0.1042 

0.0302 

R3088_btmp_308  8  .dat 

0.0540 

0.9701 

J 

R3083  btmp  3083.dat 

0.0717 

0.9696 

TTTi  1 

R3195  btmp  3195.dat 

0.1079 

0.9675 

R3197  btmp_3l97.dat 

0.0544 

0.9699 

BwmB  I  iM 

R32 1 5_btmp_32 1 5.dat 

0.0942 

0.9701 

0.0301 

R3197tr  btmp  3197tr.dat 

0.1230 

0.9440 

0.0566 

Training  Class  2 

R3028_rl0  btmp_3195.dat 

■BIQ  SB 

0.3699* 

0.6312* 

R3083  rlO  btmp  3195.dat 

0.0460 

0.9537 

R3195  rlO  btmp  3028.dat 

0.0479 

R3033_btmp  3028.dat 

0.0624 

0.9372 

R3190  p47  btmp  3090.dat 

0.2468 

0.0446 

0.9551 

R3033  btmp  3195.dat 

0.2523 

0.0443 

0.9554 

R3 1 90_p  1 65_btmp_3090.dat 

0.0610 

0.9386 

R3090  rlO  btmp  3195.dat 

0.2382 

0.0450 

0.9547 

R3l97tr  btmp  3066.dat 

0.0439 

0.9558 

Test  Class  1 

R3042_btmp_3042.dat 

0.0376 

0.9701 

R3051  btmp  3051.dat 

0.0640 

Mlnii 

R3090  btmp  3090.dat 

0.0971 

■ 

0.0301 

R3190_pl65_btmp_3l90_pl65.dat 

0.0303 

R3 1 90_p22 1  _btmp_3 1 90_p22 1  .dat 

0.0304 

R3 1 90_p47_btmp_3 1 90_p47.dat 

0.0539 

0.0302 

R3195Tank  btmp  3195Tank.dat 

0.1058 

0.9681 

0.0322 

R3190  t227  btmp  3190  t227.dat 

0.0578 

0.9701 

0.0302 

R3033  btmp  3033.dat 

0.0735 

0.9695 

0.0307 

Test  Class  2 

R3051_btmp_3195.dat 

0.0443 

R3195_rl0  btmp  3028.dat 

HJIKJ 

R3195Tank_btmp  3028.dat 

:fiw»££  Ik.:'?! 

R3 1 97  tr_btmp_3028 .dat 

0.2791 

0.0439 

0.9558 

R3197tr  btmp_3083.dat 

0.2794 

0.0439 

0.9558 

R3190_ 

p22 1  _btmp_ 3083.  dat 

0.2273 

0.0456 

0.9540 

R3090 

jtmp_3083.dat 

0.2298 

0.0455 

0.9542 

R3074 

3tmp_3195.dat 

0.2528 

0.0449 

0.9548 

R3042 

)tmp  3195.dat 

0.2545 

0.0447 

0.9550 

*  Values  progressed  to  0.1655  and  0.8347  after  9000  training  file  iterations. 
(Note:  Both  methods  gave  perfect  classification. 

No  significant  difference  between  range  and  binary  data.) 


Table  6.13 

Classification  Results  for  Set  2  Range  Training  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net 

Node  1 

Node  2 

Training  Class  1 

R3028_tmp_3028.dat 

R3028_r40_tmp_3028.dat 

■iltU] 

sfiwii? :  rfSfti 

R3066_tmp_3066.dat 

0.9844 

0.0137 

R3066  r40  tmp  3066.dat 

0.1342 

0.9807 

R3074_tmp_3074.dat 

0.0464 

0.9840 

0.0145 

R3074_r40_tmp_3074.dat 

0.1074 

0.9786 

0.0209 

R308 8_tmp_308 8 .dat 

0.1272 

0.9840 

0.0144 

R3088_r40_tmp_3088.dat 

0.0419 

0.9822 

0.0169 

R3083_tmp_3083.dat 

0.0678 

0.9835 

0.0151 

R3083  r40  tmp  3083.dat 

0.0667 

0.9824 

0.0165 

R3195  tmp  3195.dat 

0.0906 

0.9795 

0.0200 

R3195  r40  tmp  3195.dat 

0.1207 

0.9553 

0.0465 

R3042_tmp  3042.dat 

0.1222 

0.9844 

0.0138 

R3042  r40  tmp  3042.dat 

0.1419 

0.9730 

0.0278 

Training  Class  2 

R3028_R10  tmp  3195.dat 

fil 

0.9835 

R3066_tmp_3 1 95.dat 

|.V(  1 

0.9862 

R3066  tmp  3083.dat 

mSmxw*  w 

0.9865 

R3074  tmp  3195.dat 

0.2221 

0.0168 

0.9846 

R3074  tmp  3090.dat 

0.1734 

0.0220 

0.9794 

R3088_tmp_3 1 90_p47.dat 

0.2160 

0.0170 

0.9843 

R3088_tmp_3083.dat 

0.2119 

0.0191 

R308 3_r  1 0_tmp_3 1 95  .dat 

0.2213 

0.0173 

0.9841 

R3083_rl0_tmp_3028.dat 

0.2057 

0.0204 

R3195_rl0_tmp_3028.dat 

0.1828 

0.0421 

Hit* 

R3042_tmp_3 1 95.dat 

0.2366 

0.0164 

0.9851 

R3042  tmp  3090.dat 

0.2093 

0.0235 

0.9768 

(Note:  Distance  threshold  at  0.16  ) 


Table  6.14 

Classification  Results  for  Set  2  Range  Test  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name  ! 

Distance 

Neural  Net 

Node  1 

Node  2 

Test  Class  1 

1 

R3028  rlO  tmp  3028.dat 

0.9834 

R3028  r20  tmp  3028.dat 

:  Spill: 

mH 

R3028  r30_tmp_3028.dat 

wUr  •  910 

mH 

R3066  rlO  tmp  3066.dat 

0.1119 

9h(K 

R3066  r20_tmp_3066.dat 

0.1468 

0.9825 

R3066  r30_tmp  3066.dat 

0.0997 

0.9832 

Ml  : 

R3074  rlO  tmp  3074.dat 

0.1102 

0.8776 

WmSh&m 

R3074  r20  tmp  3074.dat 

0.1134 

0.8258 

R3074  r30  tmp  3074.dat 

0.1401 

0.6706* 

Bl  ft 

R3088  rlO  tmp  3088.dat 

0.0455 

0.9828 

iC; 

R3088  r20  tmp  3088.dat 

0.0355 

0.9833 

0.0154 

R3088  r30  tmp  3088.dat 

0.0397 

0.9836 

0.0150 

R3083  rlO  tmp  3083.dat 

0.0723 

0.9818 

0.0172 

R3083  r20  tmp  3083.dat 

0.0699 

0.9828 

0.0160 

R3083  r30  tmp  3083.dat 

0.0655 

0.9824 

0.0165 

R3195_rl0_tmp  3195.dat 

0.1291 

0.9112 

0.0917 

R3195  r20  tmp  3195.dat 

0.1264 

0.9380 

0.0647 

R3195  r30  tmp  3195.dat 

0.1174 

0.9489 

0.0528 

R3042  rlO  tmp  3042.dat 

0.1162 

0.9801 

0.0191 

R3042_r20_tmp_3042.dat 

0.0929 

0.9822 

0.0167 

R3042  r30  tmp  3042.dat 

0.1419 

0.9808 

0.0186 

Test  Class  2 

R3028_r40_tmp_3 1 95.dat 

0.0159 

R3066_r40_tmp_3 1 95.dat 

0.0159 

0.9858 

R3066„r20_tmp_3 195.dat 

0.0159 

0.9858 

R3066  r40_tmp_3083.dat 

0.2482 

0.0153 

0.9867 

R3066_r20_tmp_308 3 .dat 

0.2026 

0.0191 

0.9819 

R3074  r40_tmp_3195.dat 

0.2454 

0.0154 

0.9866 

R3074_r20_tmp_3 195.dat 

0.2285 

0.0161 

0.9856 

R3074_r40_tmp_3090.dat 

0.2010 

0.0360 

0.9623 

R3074  r20_tmp_3090.dat 

0.1677 

0.0416 

0.9575 

R3088  r20_tmp_3195.dat 

0.2402 

0.0159 

0.9858 

R3088  r40_tmp  3195.dat 

0.2468 

0.0167 

0.9849 

R3088_r20_tmp_308 3.dat 

0.1887 

0.0558 

0.9417 

R3088  r40  tmp  3083.dat 

0.1732 

0.1201 

V:jr  MJp 

R3042  r20_tmp  3090.dat 

0.0187 

Jtyj:  Sw:-- 

R3042  r40  tmp  3090.dat 

0.0166 

R3042  r20  tmp  3195.dat 

0.2433 

0.0161 

0.9854 

R3042  r40_tp’p  3195.dat 

0.2362 

0.0165 

0.9850 

R3083_r20_tm'p_3 1 95  .dat 

0.2262 

0.0183 

0.9828 

R3083_r40_tmp  3195.dat 

0.2250 

0.0176 

0.9837 

R3083  r20_tmp  3028.dat 

0.2153 

0.4513 

0.5635* 

R3083  r40  tmp  3028.dat 

0.1872 

0.2668 

0.7398* 

R3195  r40  tmp  3028.dat 

0.2280 

0.0182 

0.9833 

*  Represents  a  /u?/iclassification  with  thresholds  of  0.8  and  0.2 
(Note:  Distance  classifications  are  good,  but  at  the  expense  of  a  figure  of  merit.) 


Table  6.15 

Classification  Results  for  Set  2  Binary  Training  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net 

Node  1 

Node  2 

Training  Class  1 

R302 8_btmp_3028 .dat 

0.1619* 

0.9764 

0.0213 

R3028_r40_btmp_3028.dat 

0.0615 

0.9758 

0.0231 

R3066_btmp_3066.dat 

0.1209 

0.9766 

0.0207 

R3066_r40_btmp_3066.dat 

0.1070 

0.9677 

0.0314 

R3074_btmp_3074.dat 

0.0345 

0.9758 

0.0226 

R3074_r40_btmp_3074.dat 

0.1030 

0.9567 

0.0438 

R3088_btmp_3088.dat 

0.0886 

0.9757 

0.0231 

R3088_r40_btmp_3088.dat 

0.0309 

0.9724 

0.0269 

R 3083_btmp_308 3 .dat 

0.0582 

0.9750 

0.0235 

R 308 3_r40_btmp_308 3 .dat 

0.0663 

0.9717 

0.0274 

R  3 1 95_btmp_3 1 95  .dat 

0.0824 

0.9713 

0.0279 

R3 195_r40_btmp_3 195.dat 

0.1030 

0.9569 

0.0444 

R3042_btmp_3042.dat 

0.0772 

0.9763 

0.0216 

R3042  r40  btmp  3042.dat 

0.0980 

0.9494 

0.0523 

Training  Class  2 

R3028_R  1 0_btmp_3 1 95.dat 

0.0222 

0.9812 

R3066_btmp_3 195.dat 

0.0222 

0.9814 

R3066_btmp_3083.dat 

0.0417 

0.9639 

R3074  btmp  3195.dat 

0.0221 

0.9819 

R3074  btmp  3090.dat 

■Jl msmmki* 

0.0460 

0.9557 

R3088_btmp_31 90_p47.dat 

0.2002 

0.0230 

0.9806 

R3088  btmp  3083.dat 

0.1822 

0.0346 

0.9663 

R3083_rl0_btmp_3195.dat 

0.2083 

0.0234 

0.9797 

R3083  rlO  btmp  3028.dat 

0.1851 

0.0243 

0.9783 

R3195  rlO  btmp  3028.dat 

0.1522 

0.0439 

0.9579 

R3042_btmp_3195.dat 

0.2138 

0.0230 

R3042  btmp  3090.dat 

0.1892 

0.0310 

0.9713 

*  Indicates  a  misclassification  with  a  distance  threshold  of  0.14 
(Note:  the  training  set  with  the  neural  net  is  perfectly  classified.) 


Table  6.16 

Classification  Results  for  Set  2  Binary  Test  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 


Distance 


Neural  Net 


Node  1 


Node  2 


Test  Class  1 


R3028_rl0_btmp_ 

R3028_r20_btmp_ 

R3028_r30_btmp_ 

R3066 jr  1 0_btmp_ 

R3066_r20_btmp_ 

R3G66_r30_btmp 

R3074_rl0_btmp 

R3074_r20_btmp_ 

R3074_r30_btmp_ 

R3088_rl0_btmp 

R3088_r20_btmp_ 

R3088_r30_btmp_ 

R3083_rl0_btmp_ 

R3083_r20_btmp_ 

R3083_r30_btmp 

R3195_rl0_btmp 

R3 1 95_r20_btmp_ 

R3195_r30_btmp_ 

R3042_rl0_btmp. 

R3042_r20_btmp. 

R3042  r30  btmp_ 


Test  Class  2 


R3028_r40_btmp_ 
R3066_r40_btmp_ 
R3066_r20_btmp. 
R3066_r40__btmp. 
R3066_r20__btmp. 
R3074_r40_btmp. 
R3074_r20_btmp. 
R3074_r40_btmp. 
R3074_r20_btmp. 
R3088_r20_btmp. 
R3088_r40_btmp_ 
R3088_r20_btmp. 
R308 8_r40_  btmp. 
R3042_r20_btmp. 
R3042_r40_btmp. 
R3042_r20_btmp. 
R3042_r40_btmp. 
R3083_r20_btmp. 
R3083_r40_btmp. 
R3083_r20_btmp_ 
R3083_r40_btmp. 
R3195  r40  btmp. 


3028.dat 

3028.dat 

3028.dat 

3066.dat 

3066.dat 

3066.dat 

3074.dat 

3074.dat 

3074.dat 

3088.dat 

3088.dat 

3088.dat 

3083.dat 

3083.dat 

3083.dat 

3195.dat 

3195.dat 

_3195.dat 

3042.dat 

3042.dat 

3042.dat 


3195.dat 

3195.dat 

3195.dat 

3083.dat 

3083.dat 

3195.dat 

3195.dat 

3090.dat 

3090.dat 

3195.dat 

3195.dat 

3083.dat 

3083.dat 

_3090.dat 

3090.dat 

.3195.dat 

_3195.dat 

3195.dat 

.3195.dat 

3028.dat 

_3028.dat 

3028.dat 


0.1105 

0.1305 

0.1072 

0.1218 

0.1076 

0.1263 

0.0313 

0.0254 

0.0206 

0.0716 

0.0664 

0.0666 

0.1111 

0.1116 

0.1019 

0.1012 

0.0841 

0.0916 


0.2088 

0.1847 

0.2158 

0.2018 

0.1941 

0.1937 

0.2188 

0.2138 

0.1803 

0.1637 

0.1669 

0.1680 

0.2163 

0.2089 

0.2179 

0.2154 

0.1947 

0.1890 

0.1772 


0.3602 

0.7895 

0.5568 

0.9723 

0.9738 

0.9744 

0.9674 

0.9708 

0.9717 

0.9147 

0.9389 

0.9457 

0.7934* 

0.9701 

0.9493 


0.0260 

0.0256 

0.0221 

0.0228 

0.0243 

0.0237 

0.0217 

0.0221 

0.0356 

0.0580 

0.0254 

0.0353 

0.0217 


0.0464 

0.0277 

0.0223 

0.6323* 

0.2161 

0.4477 

0.0274 

0.0259 

0.0246 

0.0325 

0.0286 

0.0271 

0.0903 

0.0648 

0.0566 

0.2253 

0.0302 

0.0521 


0.9814 

0.9781 

0.9768 

0.9809 

0.9806 

0.9780 


0.9649 

0.9426 

0.9777 

0.9660 


0.9732 

0.9749 


*  Represents  a  ra/iclassification  with  thresholds  of  0.8  and  0.2 
(Note:  Both  methods  give  good  classification  results.) 


Table  6.17 

Classification  Results  for  Class  1  Set  3  Range  Training  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net 

Node  1 

Node  2 

Training  Class  1 

R3 197tr_tmp_3 195.dat 

0.1548* 

0.9027** 

R3 1 90_p  1 65_tmp_3 1 95.dat 

0.1565* 

|Mv|  1 

0.0193 

R3 1 90_p22 1  _tmp_3 1 95  .dat 

0.1748* 

0.9028** 

R3074_tmp_308 3 .dat 

0.1222 

0.9837 

0.0156 

R305  l_tmp_3090.dat 

0.1268 

0.9764 

0.0228 

R3042_tmp_308 3 .dat 

0.1117 

0.9988 

0.0012 

R3090  r40  tmp  3028.dat 

0.1822* 

0.9970 

0.0030 

R3090_tmp_3028.dat 

0.1602* 

0.9956 

0.0043 

R3033  r40  tmp  3083.dat 

0.1444* 

0.9837 

0.0156 

R3033_rl0_tmp_3083.dat 

0.1278 

0.9837 

0.0156 

R3033_tmp  3083.dat 

0.1321 

0.9837 

0.0156 

R3028_tmp  3028.dat 

0.2069* 

0.9970 

0.0030 

R3028_r40_tmp_3028.dat 

0.0887 

0.9970 

0.0030 

R3066  tmp  3066.dat 

0.2057* 

0.9970 

0.0030 

R3066_r40  tmp  3066.dat 

0.1121 

0.9968 

0.0032 

R3074  tmp  3074.dat 

0.1187 

0.9970 

0.0030 

R3074_r40_tmp_3074.dat 

0.0625 

0.9963 

0.0037 

R3088  tmp  3088.dat 

0.1978* 

0.9970 

0.0030 

R3088_r40_tmp_3088.dat 

0.0842 

0.9970 

0.0030 

R308 3_tmp_308 3 .dat 

0.1157 

0.9970 

0.0030 

R3083_r40_tmp_3083.dat 

0.0605 

0.0030 

R3195  tmp  3195.dat 

0.0861 

0.0030 

R3195_r40_tmp_3195.dat 

0.0679 

0.0031 

R3042_tmp_3042.dat 

0.2021* 

■mm 

0.0030 

R3042  r40  tmp  3042.dat 

0.1114 

0.0030 

*  Represents  a  misclassification  at  a  distance  threshold  of  0.135 

**  Represents  a  neural  net  misclassification 
(Note:  The  two  files  that  could  not  be  trained  with  the  neural  net 
have  a  large  scale  difference  between  template  and  target.) 


Table  6.18 

Classification  Results  for  Class  2  Set  3  Range  Training  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net  1 

Node  1 

Node  2 

Training  Class  2 

R3197TR  tmp  3028.dat 

0.1784 

0.0975 

R3197TR  tmp  3083.dat 

0.1803 

0.0972 

SSMiyrt  i  aBi 

R3190  p221  tmp  3090.dat 

0.1048* 

0.0976 

'1 

R3190  p221  tmp  3083.dat 

0.1200* 

0.0974 

R3190  pl65_tmp_3090.dat 

0.1062* 

0.0977 

R3190  pl65_tmp_3083.dat 

0.1249* 

0.0973 

0.9027 

R3051  tmp_3195.dat 

0.1366 

0.0973 

0.9027 

R3051  tmp  3083.dat 

0.1599 

0.0973 

0.9027 

R3090  tmp  3083.dat 

0.1343* 

0.0974 

0.9026 

R3090  tmp  3195.dat 

0.1411* 

0.0973 

0.9027 

R3033  tmp  3028.dat 

0.1241* 

0.0974 

0.9027 

R3033  tmp  3195.dat 

0.1566 

0.0974 

0.9027 

R3028  rlO  tmp  3195.dat 

0.1365 

0.0973 

0.9027 

R3066  tmp  3195.dat 

0.1596 

0.0974 

0.9027 

R3066  tmp  3083.dat 

0.1688 

0.0972 

0.9028 

R3074  tmp  3195.dat 

0.1413 

0.0985 

0.9015 

R3074  tmp  3090.dat 

0.1060* 

0.0975 

0.9025 

R3088  tmp  3195.dat 

0.1597 

0.0973 

0.9027 

R3088  tmp  3083.dat 

0.1383 

0.1000 

0.9000 

R3083  rlO  tmp  3195.dat 

0.1427 

0.0974 

0.9027 

R3083  rlO  tmp  3028.dat 

0.1439 

0.0979 

0.9022 

R3195  rlO  tmp  3028.dat 

0.1188* 

0.0974 

0.9027 

R3042  tmp_3195.dat 

0.1586 

0.0972 

0.9028 

R3042  tmp  3090.dat 

0.1535 

0.0974 

0.9027 

Table  6.19 

Classification  Results  for  Class  1  Set  3  Range  Test  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


* 


File  Name 

Distance 

Neural  Net 

Node  1 

Node  2 

Test  Class  1 

R  3 1 90_tmp_308 3 .da  t 

0.1441* 

0.9026* 

R3088_tmp_3090.dat 

0.1372* 

0.0155 

R3035_tmp_3083.dat 

0.1256 

0.9829 

0.0164 

R3066_tmp_3090.dat 

0.1088 

0.0972 

0.9028* 

R3 1 90_p47_tmp_3 1 95  .dat 

0.1629* 

0.1032 

0.8966* 

R3197TR  r40  tmp  3195.dat 

0.1582* 

0.0973 

0.9027* 

R3195TANK  tmp  3083.dat 

0.1668* 

0.9770 

0.0220 

R3 1 95TANK_r40_tmp_308  3  .dat 

0.1632* 

0.0992 

0.9008* 

R3090_r30_tmp_3028.dat 

0.1443* 

0.6513** 

0.3472 

R3090_r20_tmp_3028.dat 

0.1327 

0.9024* 

R 3090_r  1 0_tmp_302 8.dat 

0.1780* 

0.9026* 

R3033_r30  tmp_3083.dat 

0.1374* 

0.0156 

R  303 3_r20_tmp_308 3 .dat 

0.1288 

mlSm MET:fc¥Mliir 

0.0156 

R 302 8_r  1 0_tmp_302 8 .  dat 

0.0829 

0.9970 

0.0030 

R3028_r20_tmp_3028.dat 

0.0901 

0.9970 

0.0030 

R3028_r30  tmp  3028.dat 

0.1026 

0.9970 

0.0030 

R3066_r  1 0_tmp_3066.dat 

0.1092 

0.9970 

0.0030 

R3066_r20_tmp_3066.dat 

0.1428* 

0.9970 

0.0030 

R3066  r30  tmp  3066.dat 

0.0980 

0.9970 

0.0030 

R3074_rl0_tmp_3074.dat 

0.0451 

0.9169 

0.0823 

R3074  r20  tmp  3074.dat 

0.0541 

0.9963 

0.0036 

R3074_r30_tmp_3074.dat 

0.0716 

0.9851 

0.0147 

R3088_rl0_tmp_3088.dat 

0.1014 

0.9970 

0.0030 

R3088_r20_tmp_3088.dat 

0.0942 

0.9970 

0.0030 

R 308 8 _r30_tmp_308 8 .  dat 

0.1059 

0.9970 

0.0030 

R 308 3_r  1 0_tmp_308 3 .dat 

0.0580 

0.9970 

0.0030 

R3083_r20_tmp_3083.dat 

0.0609 

0.0030 

R 308  3_r30_tmp_308 3 .dat 

0.0614 

0.0030 

R3195jrl0_tmp_3195.dat 

0.0689 

0.9924 

0.0075 

R3195  r20  tmp  3195.dat 

0.0688 

0.9967 

0.0032 

R3195  r30  tmp  3195.dat 

0.0664 

0.9969 

0.0030 

R3042_rl0_tmp_3042.dat 

0.0956 

0.9970 

0.0030 

R3042_r20_tmp_3042.dat 

0.0774 

0.9970 

0.0030 

R3042  r30  tmp  3042.dat 

0.1150 

0.9969 

0.0030 

*  Represents  a  misclassification 
**  Represents  a  nonclassification 
(Note:  All  the  neural  net  misclassifications  are  in  the  same  target- 
different  view  autocorrelation  class.  See  note  below  Table  6.18.) 


% 


6-28 


Table  6.20 

Classification  Results  for  Class  2  Set  3  Range  Test  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net 

Node  1 

Node  2 

Test  Class  2 

R3195TANK_tmp_3028.dat 

0.0866* 

0.9973* 

R3195TANK  tmp  3195.dat 

0.1376 

0.0974 

rflHvt?  4 'nil 

R3197TR  tmp  3090.dat 

0.1771 

0.0973 

R3197TR  tmp  3083.dat 

0.1803 

0.0972 

R3 1 90_p47_tmp_3090.dat 

0.1067* 

0.1071 

0.8929 

R3190  p47  tmp  3083.dat 

0.1028* 

0.0974 

0.9027 

R3190  T227  tmp  3090.dat 

0.0825* 

0.0976 

0.9025 

R3 1 90_T227_tmp_3 1 95.dat 

0.1385 

0.0973 

0.9027 

R3035_tmp_3090.dat 

0.0927* 

0.0974 

0.9026 

R3035_tmp_3l95.dat 

0.1386 

0.0973 

0.9027 

R 3090_r  1 0_tmp_308 3 .dat 

0.1278* 

0.0974 

0.9027 

R3090_rl0_tmp_3 195.dat 

0.1411 

0.1005 

0.8994 

R3090_r20_tmp_308 3 .dat 

0.1206* 

0.9836* 

0.0157 

R3090  r30  tmp  3083.dat 

0.1247* 

0.1542 

0.8443 

R3090  r20  tmp  3195.dat 

0.1420 

0.1011 

0.8988 

R3090_r30_trnp_3 195.dat 

0.1430 

0.9837* 

0.0156 

R3033_r20_tmp_3028.dat 

0.1413 

0.9837* 

0.0156 

R3033_r30_tmp_3028.dat 

0.1020* 

0.0975 

0.9026 

R3033_r20_tmp_3 195.dat 

0.1618 

0.9795* 

0.0197 

R3033_r30_tmp_3 195.dat 

0.1491 

0.0972 

0.9028 

R3028_r40_tmp_3 1 95.dat 

0.1678 

0.0975 

0.9025 

R3066  r40  tmp  3195.dat 

0.1597 

0.9558* 

0.0423 

R3066  r20  tmp  3195.dat 

0.1553 

0.0975 

0.9025 

R3066_r40_tmp_3083 .dat 

0.1674 

0.0977 

0.9023 

R3066_r20_tmp_3083.dat 

0.1228* 

0.1699 

0.8284 

R3074_r40_tmp_3 195.dat 

0.1649 

0.0973 

0.9027 

R3074_r20_tmp_3 1 95.dat 

0.1485 

0.0973 

0.9027 

R3074_r40_tmp_3090.dat 

0.1320* 

0.0974 

0.9027 

R3074_r20_tmp_3090.dat 

0.0916* 

0.0974 

0.9027 

R3088  r20  tmp  3195.dat 

0.1596 

0.9837* 

0.0156 

R3088_r40_tmp_3 195.dat 

0.1685 

0.9640* 

0.0346 

R3088_r20_tmp_3083.dat 

0.1150* 

0.9022 

R308 8_r40_tmp_308 3 .dat 

0.1031* 

feSiS: 

0.9027 

R3042_r20_tmp_3090.dat 

0.1753 

0.9027 

R3042_r40_tmp_3090.dat 

0.1601 

0.9027 

R3042_r20_tmp_3 1 95  .dat 

0.1646 

0.9028 

R3042  r40  tmp  3195.dat 

0.1569 

0.1091 

0.8907 

R3083  r20  tmp  3195.dat 

0.1481 

0.0975 

0.9026 

R3083_r40_tmp_3195.dat 

0.1473 

0.0974 

0.9027 

R3083_r20_tmp_3028.dat 

0.1858 

0.9994* 

0.0006 

R3083_r40_tmp_3028.dat 

0.1414 

0.0995 

0.9005 

R3195  r40  tmp  3028.dat 

0.1581 

0.0976 

0.9025 

*  Represents  a  misclassification 


Table  6.21 

Classification  Results  for  Class  1  Set  3  Binary  Training  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net 

Node  1 

Node  2 

Training  Class  1 

R3197tr_btmp_3195.dat 

0.1421* 

0.9113** 

R3190  pl65  btmp  3195.dat 

0.1540* 

0.0002 

R3190  p221  btmp  3195.dat 

0.1503* 

0.9111** 

R3074  btmp  3083.dat 

0.1229 

0.0002 

R3051_btmp_3090.dat 

0.0955 

■•Tv ?  1 

0.0029 

R3042  btmp  3083.dat 

0.0927 

0.0047 

R3090  r40  btmp  3028.dat 

0.1132 

mmiVl: 

0.0113 

R3090_btmp_3028.dat 

0.0948 

0.9959 

0.0034 

R3033_r40_bmip_3083.dat 

0.1345* 

0.9964 

0.0042 

R3033_rl0_btmp_3083.dat 

0.1270* 

0.9822 

0.0198 

R 303 3_btmp_308 3 .dat 

0.1184 

0.9721 

0.0314 

R3028_btmp_3028.dat 

0.2383* 

0.9941 

0.0049 

R3028_r40_btmp_3028.dat 

0.1242 

0.9939 

0.0051 

R3066_btmp_3066.dat 

0.1831* 

0.9939 

0.0051 

R3066_r40_btmp_3066.dat 

0.0706 

0.9938 

0.0052 

R3074_btmp_3074.dat 

0.1028 

0.9924 

0.0061 

R307 4_r40_btmp_3074.dat 

0.0453 

0.9937 

0.0052 

R3088_btmp_3088.dat 

0.1597* 

0.9908 

0.0081 

R3088_r40_btmp_3088.dat 

0.0696 

0.9948 

0.0044 

R308 3_btmp_3083 .dat 

0.1036 

0.9995 

0.0004 

R3083_r40_btmp_3083.dat 

0.0510 

0.9966 

0.0028 

R3 1 95_btmp_3 1 95  .dat 

0.0938 

0.9985 

0.0012 

R3 195_r40_btmp_3 195.dat 

0.0668 

0.9963 

0.0030 

R3042_btmp_3042.dat 

0.1554* 

0.9939 

0.0051 

R3042  r40  btmp  3042.dat 

0.0635 

0.9939 

0.0051 

*  Represents  a  misclassification  at  a  threshold  of  0.125 
**  Represents  a  neural  net  misclassification 
(Note:  The  two  files  that  could  not  be  trained  with  the  neural  net 
have  a  large  scale  difference  between  template  and  target.  Also,  these 
are  the  same  two  files  that  could  not  be  trained  using  the  range  data.) 
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Table  6.22 

Classification  Results  for  Class  2  Set  3  Binary  Training  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net  I 

Node  1 

Node  2 

Training  Class  2 

R3 197TR_btmp_3028.dat 

0.1616 

0.0887 

0.9111 

R3197TR  btmp  3083.dat 

0.1624 

0.0887 

0.9111 

R3190  p221  btmp  3090.dat 

0.1326 

0.0777 

0.9223 

R3190  p221  btmp  3083.dat 

0.1117* 

0.0866 

0.9133 

R3190  pl65  btmp  3090.dat 

0.0827* 

0.0887 

0.9111 

R3190  pl65  btmp  3083.dat 

0.1254 

0.0051 

0.9952 

R3051_btmp_3195.dat 

0.1514 

0.0885 

0.9113 

R 305 1  __btmp_308 3.dat 

0.1289 

0.0887 

0.9111 

R3090_btmp_3083.dat 

0.1106* 

0.0879 

0.9119 

R3090_btmp_3195.dat 

0.1268 

0.0858 

0.9141 

R3033_btmp_3028.dat 

0.0712* 

0.0365 

0.9613 

R3033  btmp  3195.dat 

0.1410 

0.0892 

0.9106 

R3028_R10_btmp_3195.dat 

0.1278 

0.0964 

0.9037 

R3066_btmp_3 1 95.dat 

0.1398 

0.0887 

0.9111 

R3066  btmp  3083.dat 

0.1494 

0.0892 

0.9106 

R3074_btmp_3 195.dat 

0.1398 

0.0887 

0.9111 

R3074_btmp_3090.dat 

0.0838* 

0.0039 

0.9963 

R 308 8_btmp_3 1 95  .dat 

0.1421 

0.0886 

0.9112 

R3088_btmp_3083.dat 

0.1097* 

0.0428 

0.9557 

R3083_rl0_btmp_3195.dat 

0.1343 

0.0887 

0.9111 

R3083  rlO  btmp  3028.dat 

0.1133* 

0.0050 

0.9952 

R3 195_rl0_btmp_3028.dat 

0.0942* 

0.0039 

0.9963 

R 3042_btmp_3 1 95  .dat 

0.1352 

0.0909 

0.9091 

R3042  btmD  3090.dat 

0.1167* 

0.0063 

0.9940 

*  Represents  a  misclassification  at  a  threshold  of  0.125 
(Note:  The  ability  of  a  neural  net  to  train  and  seperate  very  poorly  distributed 
data  is  outstanding.  The  key  to  classifying  test  data,  is  to  insure  the  training 
data  is  a  good  representation  of  all  the  data.  Same  baisc  results  as  with  the  range  data.) 


Table  6.23 

Classification  Results  for  Class  1  Set  3  Binary  Test  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net  1 

Node  1 

Node  2 

Test  Class  1 

R3 1 90_btmp_308  3  .dat 

0.1326* 

0.9114* 

R3088_btmp_3090.dat 

0.1392* 

■mt:  !H 

0.9109* 

R3035_btmp_3083.dat 

0.1190 

sBtjCSf  XlHfl 

0.0005 

R3066  btmp  3090.dat 

0.0774 

0.9983 

0.0014 

R3190  p47  btmp  3195.dat 

0.1559* 

0.0886 

0.9112* 

R3197TR  r40  btmp  3195.dat 

0.1465* 

0.0887 

0.9111* 

R3195TANK  btmp  3083.dat 

0.1013 

0.9441 

0.0617 

R3195TANK  r40  btmp  3083.dat 

0.1441* 

0.9998 

0.0002 

R3090  r30  btmp  3028.dat 

0.1093 

0.9951 

0.0041 

R3090_r20_btmp_3028.dat 

0.1001 

0.8536 

0.1612 

R3090_r  1 0_btmp_302 8.dat 

0.0897 

0.9981 

0.0016 

R3033_r30_btmp_3083.dat 

0.1247 

0.0813 

0.9187* 

R3033_r20_btmp_308 3 .dat 

0.1287* 

0.0990 

0.9013* 

R302 8_r  1 0_btmp_3028 .dat 

0.1095 

0.9939 

0.0051 

R3028_r20_btmp_3028.dat 

0.1174 

0.9916 

0.0067 

R3028_r30_btmp_3028.dat 

0.0987 

0.9927 

0.0059 

R3066_r  1 0_btmp_3066.dat 

0.0635 

0.9937 

0.0052 

R3066_r20_btmp_3066.dat 

0.1049 

0.9939 

0.0051 

R3066  r30  btmp  3066.dat 

0.1076 

0.9939 

0.0051 

R307 4_r  1 0_btmp_3074.dat 

0.0542 

0.0192 

0.9813* 

R3074  r20  btmp  3074.dat 

0.0387 

0.9911 

0.0074 

R3074_r30_btmp_3074.dat 

0.0540 

0.9763 

0.0216 

R3088_rl0_btmp_3088.dat 

0.0777 

0.5200** 

0.4432 

R3088_r20_btmp_3088.dat 

0.0748 

0.9939 

0.0051 

R3088  r30  btmp  3088.dat 

0.0769 

0.9939 

0.0051 

R3083_rl0_btmp_3083.dat 

0.0484 

0.9975 

0.0021 

R308 3_r20_btmp_308 3 .dat 

0.0485 

0.9955 

0.0037 

R308 3_r30_btmp_308 3 .dat 

0.0504 

0.9954 

0.0038 

R3 1 95_r  1 0_btmp_3 1 95  .dat 

0.0641 

0.9971 

0.0024 

R3195  r20  btmp  3195.dat 

0.0667 

0.9978 

0.0018 

R3195  r30  btmp  3195.dat 

0.0658 

0.9984 

0.0013 

R3042  rlO  btmp  3042.dat 

0.0553 

0.9730 

0.0240 

R3042_r20_btmp_3042.dat 

0.0629 

0.9902 

0.0077 

R3042  r30  btmo  3042.dat 

0.0551 

0.9933 

0.0055 

*  Represents  a  misclassification 
**  Represents  a  nonclassification 

(Note:  All  the  neural  net  misclassifications  are  in  the  same  target-different  view 
autocorrelation  class.  See  note  below  Table  6.22.  Same  basic  results  as  with  the  range  data.) 
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Table  6  24 

Classification  Results  for  Class  2  Set  3  Binary  Test  Data 
(Note:  Distances  are  calculated  from  the  center  of  the  class  1  training  data.) 


File  Name 

Distance 

Neural  Net  i 

Node  1 

Node  2 

Test  Class  2 

R3195TANK  btmp  3028.dat 

0.1557 

0.0887 

0.9111 

R3195TANK  btmp  3195.dat 

0.1213* 

0.0076 

0.9926 

R3197TR  btmp  3090.dat 

0.1632 

0.0887 

0.9111 

R3 197TR_btmp_3083.dat 

0.1624 

0.0887 

0.9111 

R3 190_p47_btmp_3090.dat 

0.1281 

0.8735* 

0.1453 

R3190  p47  btmp  3083.dat 

C.0826* 

0.9697* 

0.0290 

R3 1 90_T227_btmp_3090.dat 

0.0984* 

0.0121 

0.9882 

R3190_T227_btmp_3195.dat 

0.1449 

0.0886 

0.9112 

R3035  btmp  3090.dat 

0.1370 

0.0039 

0.9963 

R3035  btmp  3195.dat 

0.1320 

0.0174 

0.9831 

R3090_rl0_btmp_3083.dat 

0.1294 

0.9850* 

0.0192 

R3090_r  1 0_btmp_3 1 95.dat 

0.1188* 

0.1523 

0.8483 

R3090_r20_btmp_308 3 .dat 

0.1215* 

0.0882 

0.9116 

R3090_r30_btmp_3083.dat 

0.1072* 

0.1105 

0.8900 

R3090_r20_btmp_3 1 95.dat 

0.1241* 

0.0988 

0.9014 

R3090_r30_btmp_3 195.dat 

0.1169* 

0.0883 

0.9115 

R3033_r20_btmp_3028.dat 

0.1545 

0.0039 

0.9963 

R303  3_r30_btmp_3028 .dat 

0.0863* 

0.9735* 

0.0221 

R3033_r20_btmp_3 1 95  .dat 

0.1323 

0.0883 

0.9115 

R3033_r30_btmp_3195.dat 

0.1528 

0.0887 

0.9111 

R3028  r40  btmp  3195.dat 

0.1440 

0.0887 

0.9111 

R3066_r40_btmp_3 195.dat 

0.1498 

0.0887 

0.9111 

R3066_r20_btmp_3 195.dat 

0.1472 

0.0887 

0.9111 

R3066_r40_btmp_308 3.dat 

0.1356 

0.0887 

0.9111 

R3066_r20_btmp_3083.dat 

0.1060* 

0.9968* 

0.0037 

R3074  r40  btmp  3195.dat 

0.1426 

0.0887 

0.9111 

R3074  r20  btmp  3195.dat 

0.1228* 

0.1061 

0.8943 

R 307 4_r40_btmp_3090.dat 

0.1202* 

0.0042 

0.9960 

R3074_r20_btmp_3090.dat 

0.1245* 

0.0887 

0.9111 

R3088_r20_btmp_3 195.dat 

0.1424 

0.0887 

0.9111 

R3088_r40_btmp_3195.dat 

0.1406 

0.0886 

0.9112 

R3088_r20_btmp_3083.dat 

0.1071* 

0.9790* 

0.0213 

R3088_r40_btmp_3083.dat 

0.0912* 

0.9847* 

0.0145 

R3042_r20_btmp_3090.dat 

0.0934* 

0.0880 

0.9118 

R3042  r40  btmp  3090.dat 

0.0914* 

0.0131 

0.9869 

R3042  r20  btmp  3195.dat 

0.1378 

0.0877 

0.9121 

R3042_r40_bmip_3 195.dat 

0.1336 

0.0883 

0.9115 

R3083_r20_btmp_3 1 95.dat 

0.1421 

0.0909 

0.9091 

R3083_r40_btmp_3 1 95.dat 

0.1423 

0.0887 

0.9111 

R3083_r20_btmp_3028.dat 

0.1216* 

0.0887 

0.9111 

R3083_r40_btmp_3028.dat 

0.1175* 

0.0885 

0.9113 

R3195  r40  btmp  3028.dat 

0.1067* 

0.4113 

0.6000** 

*  Represents  a  misclassification 
**  Represents  a  nonclassification 
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VII.  Conclusions  and  Recommendations 

7.1  Conclusions 

This  thesis  examined  methods  of  classifying  and  locating  both  segmented  and  non- 
segmented  targets  using  laser  range  and  binary  data.  The  classification  methods 
included  applying  both  standard  distance  measurements  and  a  neural  network  to  the 
peak  of  a  PSRI  space  correlation.  The  experimental  results  on  these  methods  demon¬ 
strated  that  a  trainable  neural  network  has  distinct  advantages  over  distance  measure¬ 
ments,  both  in  absolute  classification  rates  and  in  the  figure  of  merit  area.  The  study  with 
the  multilayer  perceptron  also  demonstrated  that  these  are  not  magical  devices.  Care 
must  be  taken  to  provide  the  network  with  an  adequate  representation  of  the  data  if 
satisfactory  classification  results  are  to  be  obtained.  In  a  real  world  situation,  many 
more  training  files  would  be  needed  to  ensure  proper  classification.  However,  the  suc¬ 
cessful  results  demonstrated  in  this  thesis  indicate  that  this  may  be  a  classification  alter¬ 
native  worth  pursuing. 

This  study  indicates  that  with  the  chosen  features  and  methods  of  classification,  the 
relative  range  information  did  not  provide  any  extra  useful  information  about  the  target. 
Again,  as  stated  in  chapter  VI,  this  does  not  mean  that  the  information  isn’t  available, 
only  that  the  chosen  features  and  classification  method  didn’t  make  use  of  this  informa¬ 
tion.  It  could  also  mean  that  the  extra  information  wasn’t  required.  The  classification 
rates  in  sets  one  and  two  using  the  neural  network  were  near  100%  for  both  binary  and 
range  data.  Extra  information  can’t  be  deemed  useful  if  it  isn’t  needed.  In  set  three,  the 
classification  rate  was  much  less,  particularly  with  the  same  class  -  different  view  auto¬ 
correlations.  However,  this  was  most  likely  due  to  the  limited  number  of  training  files 
of  this  type  used.  The  success  achieved  with  the  set  three  training  files  gives  hope  that  a 
larger  training  set  could  yield  better  classification  results. 

The  other  area  explored  was  that  of  the  space  domain  Goodman  -  Schwarz  correla¬ 
tion.  The  theory  of  this  correlation  indicated  that  through  a  process  of  local  normaliza- 


tion,  the  peak  in  the  correlation  plane  will  correspond  to  where  the  input  scene  best 
numerically  matched  the  template. 

The  test  case  for  this  experiment  worked  well  with  the  peak  in  the  correlation  plane 
properly  locating  the  target  with  two  of  the  three  templates  tested.  It  was  determined 
that  for  this  test  case,  a  threshold  of  98%  of  the  maximum  could  be  used  as  a  threshold 
for  the  purpose  of  classification.  However,  a  more  extensive  study  is  needed  to  deter¬ 
mine  some  type  of  universal  threshold.  A  multistage  process  was  used  to  greatly  reduce 
the  computation  time  required.  This  multistage  process  also  allowed  for  locating  par¬ 
tially  occluded  targets.  This  process  was  found  to  work  well  on  the  larger  targets  but 
not  on  the  small  target.  Again,  more  study  is  needed  to  determine  size  limitations.  The 
Goodman  -  Schwarz  correlation  could  be  set  up  in  a  parallel  architecture  just  as  the 
basic  correlation  could,  but,  it  would  be  a  massive  undertaking.  The  highlight  of  the 
Goodman  -  Schwarz  correlation  is  that  it  works  through  a  local  energy  normalization 
operation.  Local  normalization  is  essential  in  locating  a  target  with  this  type  of  input 
data  where  large  amounts  of  noise  are  distributed  throughout  the  scene. 

7.2  Recommendations 

Many  possibilities  exist  for  further  study.  A  larger  number  of  correlations  could  be 
obtained  to  further  test  the  application  with  neural  networks.  A  way  to  create  scaled 
versions  of  range  images  would  be  useful  for  creating  training  files.  A  determination 
needs  to  be  made  as  to  how  scale  and  rotation  invariant  this  algorithm  is  with  respect  to 
classification.  This  researcher  strongly  believes  that  the  PSRI  space  is  much  more  rota¬ 
tion  invariant  than  scale  invariant  with  respect  to  classification.  However,  this  thesis  is 
certainly  not  presented  as  a  proof  of  this  statement.  A  frequency  filter  was  used  when 
mapping  the  magnitude  Fourier  transform  to  the  (Ln  r  ,  0)  coordinate  system.  More 
study  is  needed  to  determine  an  optimum  filter.  As  a  side  note,  if  many  more  PSRI 
space  correlations  are  to  be  performed  using  the  Kobel  and  Martin  Executive  program 
[l:Vol  II],  one  of  the  first  items  that  should  be  accomplished  is  to  modify  the  way  the 


data  is  stored.  The  present  program  requires  too  much  memory.  Certainly  one  possibil¬ 
ity  is  too  extract  the  peak  without  saving  the  correlation  plane. 

The  files  used  with  the  neural  network  contained  raw  data  taken  from  the  correla¬ 
tion  peaks.  During  the  network  operations,  each  file  was  normalized  prior  to  processing 
by  the  net.  In  the  training  phase,  a  single  file  is  then  read  and  normalized  each  time  it  is 
used.  This  is  extremely  inefficient  and  takes  approximately  30  minutes  of  cpu  time,  on 
a  Micro  Vax,  for  1000  training  file  iterations  using  100  nodes  in  the  first  hidden  layer 
end  3  nodes  in  the  second  hidden  layer.  Once  the  desired  form  the  data  is  known,  files 
should  be  created  that  contain  only  this  data  before  being  processed  by  the  neural  net¬ 
work.  This  thesis  only  explored  one  of  a  large  number  of  neural  networks.  Other  types 
may  be  explored  and  may  be  found  to  yield  superior  results. 

Mike  Mayo,  a  fellow  AFIT  student,  has  demonstrated  the  optical  transformation  of 
a  template  into  the  PSRI  feature  space  and  the  subsequent  correlation  of  the  PSRI  spaces 
[16].  Therefore,  a  very  exciting  problem  that  could  be  immediately  attacked  would  be 
to  implement  a  hybrid  optical/digital  electronic  system  that  could  perform  classification 
with  a  neural  network  using  these  correlation  peaks.  Because  of  time  constraints,  the 
optical  transformation  is  essential  in  a  real  world  application. 


Appendix  A.  Neural  Networks 

The  recent  rediscovery  of  neural  networks  is  due  to  new  net  topologies  and  algo¬ 
rithms.  Also,  the  extensive  calculations  required  for  speech  and  pattern  recognition 
have  a  great  advantage  in  the  parallel  architecture  of  neural  networks.  The  neural  net¬ 
work  used  in  this  study  was  a  multilayer  perception  which  makes  use  of  a  backward 
error  propagation  routine.  A  complete  description  of  this  network  can  be  found  in  a 
very  good  tutorial  format  article  by  Lippmann  [22].  Conceptually,  a  multilayer  percep- 
tron  is  constructed  as  in  fig.  A.  1.  The  input  to  the  network  is  the  set  of  features  that  are 
to  be  used  for  classification  and  the  output  becomes  the  class  in  which  the  features  are 
grouped.  Connection  weights  and  node  thresholds  are  initially  chosen  to  be  small  ran¬ 
dom  numbers  and  are  updated  during  the  training  phase  using  the  backward  error  propa¬ 
gation  routine. 

During  the  training  phase,  the  net  processes  many  examples  of  the  classes  that  are 
desired  to  be  classified.  The  weights  and  thresholds  of  the  net  are  forming  decision 
regions  in  an  N  dimensional  space  where  N  is  the  number  of  input  features.  The 
weights  and  internal  thresholds  are  updated  with  the  backward  error  propagation  routine 
that  updates  values  based  on  the  actual  values  as  compared  to  the  desired  output  values. 
The  backward  error  propagation  routine  makes  the  decision  regions  better  accommodate 
the  input  data.  Once  the  training  is  complete,  the  hope  is  that  new  data  from  the  classes 
will  also  fall  into  the  proper  decision  region,  therefore  being  classified.  This  is  very 
simplified  and  much  more  detail  can  be  found  in  Lippmann  [22].  There  are,  however,  a 
few  items  that  need  to  be  stressed  from  or  added  to  Lippmann. 

First,  the  selection  of  the  number  of  internal  nodes.  Lippmann  states  that  in  the 
second  hidden  layer,  each  node  will  identify  a  decision  region  [22:16].  Therefore,  if 
there  are  only  two  decision  regions,  the  output  node  can  do  the  identification  and  there  is 
no  need  for  the  second  hidden  layer.  If  the  net  is  presented  with  a  2  class  problem  and 
each  class  is  separated  into  3  regions,  then  there  needs  to  be  at  least  6  nodes  in  the 
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Fig.  A.l  Conceptual  Diagram  of  a  Multilayer  Perceptron 
second  hidden  layer.  Don’t  make  the  "the  more  nodes  the  better"  mistake.  At  most, 
there  need  only  be  the  same  amount  of  regions  as  training  examples.  For  the  first  hidden 
layer,  Lippmann  states  that  one  node  is  needed  for  every  boundary  plane  of  each  deci¬ 
sion  region.  The  boundary  planes  he  is  speaking  of  are  really  N-l  dimensional  units. 
He  therefore  states  the  need  for  at  least  three  times  as  many  nodes  in  the  first  hidden 
layer  as  in  the  second  hidden  layer  [22:16].  This  is  true  if  the  data  has  been  normalized 
so  as  to  fall  onto  the  surface  of  a  hypersphere.  If  the  data  occupies  the  volume  of  the 
hypersphere,  and  it’s  necessary  to  completely  enclose  the  decision  region,  there  needs  to 
be  at  least  N+l  number  of  nodes  for  every  region.  For  the  case  where  there  is  no  insight 
as  to  the  distribution  of  the  decision  region,  the  following  sequence  is  suggested: 


1)  Start  training  with  two  nodes  in  the  second  hidden  layer  and  2*(N+1)  nodes  in  the 
first  hidden  layer. 


2)  Gradually  increase  the  number  of  second  hidden  layer  nodes  (K)  and  first  hidden 
layer  nodes  K*(N+1)  until  training  is  successful. 

3)  Hold  the  second  hidden  layer  at  the  node  number  where  successful  training  was 
achieved.  Decrease  the  number  of  first  hidden  layer  nodes  to  determine  number 
required  for  separation. 

This  process  was  found  to  yield  good  groupings  of  the  decision  regions.  It  is  possi¬ 
ble  that  data  could  be  grouped  in  a  volume  such  that  more  than  K*(N+1)  nodes  are 
required  in  the  first  hidden  layer  particularly  when  working  in  a  lower  dimensional 
feature  space.  In  this  case,  step  2  will  never  be  successful.  Therefore,  it  may  be  neces¬ 
sary  to  find  where  step  2  was  most  successful  and  then  start  increasing  the  number  of 
second  hidden  layer  nodes. 

It  would  be  ideal  if  there  was  an  infinite  set  of  data  to  train  the  net  with.  The  net 
could  train  on  all  possible  views  of  a  object  and  when  training  was  successful,  success¬ 
ful  classification  with  any  possible  test  data  would  be  assured.  With  pattern  recognition, 
the  game  is  to  train  with  a  finite  set  of  training  data  and  then  test  with  different  data  not 
included  in  the  training  set.  The  training  sets  are  presented  to  the  net  in  a  random  order 
so  that  the  net  can  make  as  many  training  runs  as  needed.  A  problem  with  this  is  that 
the  training  set  may  not  be  a  good  representation  of  all  the  data.  There  have  been 
attempts  to  quantify  the  required  number  of  training  sets  per  class  needed  to  properly 
train  the  net,  but  this  is  very  application  dependent.  For  example,  four  training  sets  for  a 
class  would  be  enough  if  all  the  test  data  for  that  class  fell  within  the  region  that  would 
be  bounded  by  the  four  training  examples. 

It  can  sometimes  be  hard  to  determine  when  to  stop  training  and  say  that  the  net  is 
not  going  to  separate.  The  net  is  being  trained  to  drive  the  correct  output  nodes  to  a 
value  of  one  and  drive  the  incorrect  output  nodes  to  zero.  When  a  particular  training  file 
stabilizes  at  output  values  between  0.3  and  0.7,  the  chosen  number  of  nodes  is  not  going 
to  separate  the  data.  If  the  values  are  in  this  region  but  still  flopping  around  a  great  deal, 
the  net  needs  to  train  for  a  longer  period.  This  also  gets  into  a  figure  of  merit  question. 
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If  the  input  data  is  classified  based  on  the  maximum  output  node,  when  can  the  decision 
of  the  net  be  trusted?  In  Lippmann’s  use  of  a  multilayer  perception  with  a  sigmoidal 
type  output  rule,  he  used  values  of  >  0.9  to  indicate  a  definite  true  and  values  of  <  0. 1  to 
indicate  a  definite  false  [22:17],  This,  of  coarse,  is  fairly  arbitrary  and  could  be  changed 
depending  on  the  application. 

Another  factor  that  was  critical  to  the  successful  net  training  was  the  selection  of 
the  initial  weights  and  thresholds.  At  first  these  were  all  chosen  from  a  random  distribu¬ 
tion  centered  at  zero  with  a  radius  of  0.1.  The  resulting  net  failed  miserably.  When  the 
radius  was  increased  to  0.5,  the  net  could  successfully  be  trained.  No  exhaustive  effort 
was  made  to  logically  explain  this  effect  and  it  is  offered  only  to  possibly  help  someone 
else  working  in  a  similar  area.  It  could  have  a  sound  mathematical  basis  or  may  be  due 
to  computer  errors  involved  with  many  multiplications,  additions,  and  subtractions  with 
small  numbers. 

A  final  step  is  the  preprocessing  of  the  input  data  before  sending  it  into  the  net. 
The  inputs  to  the  net  were  the  49  normalized  components  around  the  peak  of  the  PSR1 
feature  space  correlation.  Even  though  the  resulting  49  dimensional  hypersphere  has  an 
enormous  surface  area,  the  decision  regions  were  greatly  restricted  due  to  using  only 
positive  inputs.  With  only  positive  inputs,  the  surface  area  is  restricted  to  only  one  sec¬ 


tor  or  — of  the  possible  area.  Also,  since  all  correlations  have  generally  similar 

shapes  around  the  peak,  with  a  peak  and  a  roll  off  from  the  peak,  it’s  reasonable  to 
assume  that  all  the  data  would  cluster  into  a  relatively  small  area  of  this  one  sector.  It 
appears  that  these  groupings  required  too  fine  of  a  detail  for  the  net  to  adequately 
separate.  Therefore,  the  normalized  input  data  was  preprocessed  to  spread  the  data  to 
fully  occupy  a  unit  hypercube.  This  greatly  increases  the  separation  between  points  and 
leads  to  much  improved  classification.  The  method  is  to  first  search  all  the  components 
of  the  training  data  and  find  the  minimum  and  maximum  value  for  each  component. 
The  minimum  value  for  each  component  is  now  set  to  zero  and  the  maximum  value  is 
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set  to  one.  The  rest  of  the  data  is  then  spread  in  proportion  to  the  original  spread  of  the 
data  [23].  This  spreading  operation  did  not  yield  better  groupings  with  respect  to  dis¬ 
tance  measurements,  but,  it  allowed  for  regions  to  be  constructed  using  the  neural  net- 
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Appendix  B.  Computer  Programs 

The  following  is  a  listing  of  the  computer  programs  that  were  written  in  support  of 
this  thesis  effort.  They  include  a  complete  listing  for  the  multilayer  perceptron,  the  peak 
extractor  used  to  find  and  extract  the  peak  of  the  PSRI  space  correlation,  and  a  listing  for 
the  Goodman  -  Schwarz  space  domain  correlation.  These  programs  are  all  written  in  the 
VAX  ADA  programing  language. 
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PROGRAM  TITLE  :  MP 


*  AUTHORS  :  LT  STEVE  TROXEL  * 

*  CAPT  DENNIS  RUCK  • 


*  DISCRI PTION  :  This  prograa  iapleaents  *  aultilayer 

*  perceptron  to  perfora  classification. 

*  INPUTS  :  NUMBER  OF  NODES  IN  EACH  LAYER 

*  NUMBER  OF  INPUTS 

*  NUMBER  OF  CLASSES 

*  GAIN,  GAIN  DECAY  AND  MOMENTUM  VALUES 

*  COST  THRESHOLD 

*  TRAINING  AND  TEST  FILES 

*  OUTPUT  :  CLASSIFICATION  VALUES  FOR  BOTH  THE 

*  TRAINING  AND  TEST  FILES 

*  ENDING  WEIGHTS  AND  THRESHOLDS 


with  taxt  io; 
with  integer_text  io; 
with  f loat _text_io ; 
with  vactor  operations; 
with  perceptron_support; 
with  aath_lib_extension; 
with  f loat_aath_lib; 
with  systaa; 


usa  taxt_io; 
usa  integer_text_io ; 
usa  f loat_text_io; 
usa  vactor  operations; 
usa  perceptron_support; 
usa  aath_lib  axtansion; 
usa  float  Bath  lib; 


procadura  MP  is 


typa  layar  (  inputs  :  positive;  outputs  :  positive  ) 
record 

X  :  vactor  (1.. inputs); 

w  :  aatrix  (1.. inputs,  1.. outputs);  — 

W_old  ;  aatrix  f 1 . - inputs,  1.. outputs);  — 

Xp  :  vactor  ( 1 .. outputs  ) ;  — 

thata  :  vactor  ( 1 .. outputs ) ; 

theta_old  :  vactor  ( 1 .. outputs ) ; 

Y  :  vactor  ( 1 . .outputs  )  ; 

dal  :  vactor  ( 1 . .outputs  I ; 

and  record;  — 


is 

input  to  layar 
currant  weights 
previous  weights 
input  to  a  node 
currant  node  threshold 
previous  node  threshold 
output  of  layar 
relative  change  in 
weights  and  thresholds 


N 

K 

L 

M 


nua 

file  list 


integer ; 
integer; 
integer ; 
integer  ; 
integer ; 
string ( 1 . .80); 


—  nuabar  of  features 

—  nodes  in  Layar  1 

—  nodes  in  Layar  2 

—  nuabar  of  classes 

—  nuabar  of  training  files 

—  naaa  of  file  containing  list 

—  of  files 


cost  : 
total  cost  : 
cost  threshold  : 
output_interval : 
count  : 


FLOAT; 

FLOAT; 

FLOAT; 

natural 

natural 


canter 

width 

saad 

Intfile 

traTning_count 

eta  decay 

initial  ata 


constant  :«  0.0; 
float; 

systea.unsigned_longword 
Taxt  io . f ile_type; 
positi ve; 

FLOAT; 

FLOAT; 


1; 


•ta  :  FLOAT; 

alpha  :  FLOAT; 

cotract  :  float; 

last  :  natural 


bagin  —  MAIN 

—  [0]  :  Oat  paraaatars  froa  oparator 

—  cost_thrashold  ;  ralativa  changa  in  waights  and  thata  valuas 

datarainas  whan  to  stop  training 

—  initial_ata  :  gain  valua 

—  alpha  :  aoaantua  valua 

—  fila  list  ;  fila  naaa  that  contains  coaplata  list  of 

filas  to  work  with.  contains  first,  all  tha 
training  filas  and  than  all  tha  tast  filas 

—  output  intarval  :  spacifias  tha  nuabar  of  training  itarations 

batwaan  aach  systaa  tast 

—  width  :  dasirad  distribution  radius  of  initial  waights 

naw_lina; 

put7"Entar  cost  thrashold  (float)  " ) ;  gat  (cost_thrashold ) ;  skip_lina; 
no.  lina; 

putT'Entar  INITIAL  ETA  (float)  ’);  gat  ( initial_ata ) ;  skip_lina; 
naw_lina; 

put("Entar  ETA  DECAY  (float)  ");  gat  ( ata_dacay ) ;  skip_lina; 
naw  lina; 

put~"Entar  ALPHA  (float)  " ) ;  gat  (alpha);  akip_lina; 
naw_lina ; 

put("Entar  width  of  distributions  (float)  " ) ;  gat(width);  skip_lina; 
naw_lina ; 

putT’Entar  tha  nuabar  of  Layar  1  nodas  (K!  (Int)  ");  gat(K);  skip_lina; 
naw^lina; 

put("Entar  tha  nuabar  of  Layar  2  nodas  (L)  (Int)  "  ) ;  gat(L);  skip_lina; 
naw_lina; 

putJ”Entar  tha  nuadoar  of  input  faaturas  (N)  (Int)  ");  gat(N);  skip_lina; 
naw__lina; 

putX'Entar  tha  nuabar  of  output  classas  (H)  (Int)  " ) ;  gat(M);  skip_lina; 
naw_lina; 

put("Entar  tha  fila  list  naaa  ...  " ) ; gat_l ina ( f ila_list , last ) ; 
naw_lina; 

put("Entar  tha  nuabar  of  training  filas  ...  " ) ;gat (nun) ; skip_lina; 
naw  lina; 

putJ’Entar  tha  output  intarval...  "  )  :gat  ( output__intarval ) ;  skip_lina; 


Craata  (  Fila  ■>  Int_fila,  —  if  quit. tast  is  dalatad  froa  tha 

Moda  a >  out  fila,  —  diractory  during  prograa  axacution 

Naaa  ■>  "Quit . tast ") ;  —  tha  currant  waights  and  thrasholds 

Closa  (Int  fila);  —  will  ba  writtan  to  a  fila  without 


—  halting  axacution 

—  daclara  tha  natwork  layar  variablas 
daclara 


LI 

:  layar  ( 

N,  K 

)  ; 

L2 

:  layar  ( 

K,  L 

)  ; 

L3 

:  layar  ( 

L,  M 

) : 

D  out 

:  vactor 

(  1..M 

) : 

—  dasirad  output 

AO 

:  vactor 

(  I..M 

)  ; 

—  actual  output 

X  cantar 

:  vactor 

(  1  •• 

N); 

—  cantar  of  input  training  coaponants 

X~width 

:  vactor 

(  1  .. 

N) ; 

—  distribution  width  of  aach  coaponant 

procadura  coaputa_output  is 


L2  .Xp 
L2.y 
L3  .  X 


L2 .X*L2 .W; 

sigaoid  (  L2 .Xp-L2 . that*  ); 
L2  .  Y ; 


L3.Xp 
L3.  Y 


L3  .X*L3 -W; 

sigaoid  (  L3 .Xp-L3 . that*  ); 


•nd  coaputa  output; 


procadura  tast_data  (*  cantar , x_width 

fTla_list 

last 

N,M 


in  vactor; 
in  string; 
in  natural; 
in  intagar  )  is 


corrtct  : 

intagar  :«  0; 

class  : 

intagar  ; 

last2  : 

natural ; 

rowl , coll  : 

intagar ; 

Int  film  : 

Taxt  io . f ila_typa ; 

Int  fil«2  : 

Taxt  io.fila  typa; 

fila  n«st 

stringl 1 . . 80 ) ; 

storaga  array 

:  array<l. .21,1. .21 

x  count  : 

intagar  ; •  1; 

d  siza 

intagar; 

sum 

float  :•  0.0; 

X  : 

vactorll. .N) ; 

D  out  : 

vactor ( 1 . .M) ; 

AO  : 

vactor ( 1 . . M) ; 

float ; 


—  this  procadura  raquiras  tha  input  filas  to  ba  in  a  spacific  foraat. 

—  tha  first  fcorA  contains  tha  class 

—  raaaining  racords  ara  in  a  row,  coluan,  valua  foraat 

—  for  a  coaplata  21  x  21  array. 

—  tha  va'uas  ara  not  noraalizad  and  not  spraad 

—  input  data  is  tharafora  raad  in,  noraalizad  and  spraad 

—  bafora  any  additional  coaputations  ara  accoaplishad 
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fila  «>  Int  fila, 

soda  m >  in_fila, 

naaa  «>  fila  list ( 1 ..  last )) ; 


whila  not  and_of_f ila ( int_f ila )  loop 
D_out  :■  (othars  ■>  0.0); 
x  count  :•  1; 

gat_lina ( int  fila , f ila_na«a , last 2 ) ; 
opan  (  fila  ■>  Int  fila2, 
aoda  •>  in—fila, 
naaa  •>  f iTa_naaa(l . . last 2 ) ( ; 
gat { Int_fila2, class ) ; 


For  row  in  1  ..21  loop 

for  col  in  1  . .  21  loop 
gat ( Int_f i la2 , rowl ) ; 
/  gotdnt  fila2,eoll); 
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get ( Int^f ile2 , Integer (Storage  array ( row, col ) ) ) ; 
end  loop; 
end  loop; 

close  <Int_file2); 

—  noraalise  by  deviding  each  point  by  the  square  root  of  the 

—  sua  of  the  squares  of  the  desired  nuaber  of  input  points 

d_sise  :»  integer ( sqrt ( float (N )) )/2 ; 

For  row  in  11  -  d  size  . .  11  +  d_sise  loop 
For  col  in  11  -  d_size  ..  11  +  d  size  loop 
sua  :«  sua  +  storage  a rray ( row , col  I  * *2 ; 
end  loop; 
end  loop; 

sua  :■  sqrt (sua); 

—  spread  the  noraalized  input  data 

For  row  in  11  -  d  size  . .  11  +  d_size  loop 
For  col  in  11  -  d_size  . .  11  +  d  size  loop 

LI . x ( x_count )  :•  ( storage_ar ray ( row, col )/sua  -  x  center ( x_count ) )/ 
x_width ( x_count )  +  0.5; 
x_count  :«  x_count  +  1: 
end  loop; 
end  loop; 

D_out  (class)  :«  1.0; 
coapute_output ; 

AO  ;•  f ind_aax ( L3 . Y ) ; 

new_line ; 

For  j  in  L3.V' range  loop 
put (13.  y(j>, 4,4,0) : 
end  loop; 

if  D_out  *  AO  m  1.0  then 

correct  ;«  correct  ♦  1;  —  correct  is  based  on  the  correct 


<m 
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end  if;  —  node  having  the  largest  value 

end  loop; 

new  line; 

put ("Correct  «  ") ;put ( correct , 6 ) ; 

new_line; 

closet int_f ile ) ; 
end  test_data; 

begin  —  DECLARE  block 

—  find  the  centers  and  width  distributions  of  the 

—  individual  coaponents  of  the  training  data 

Get_nora_values ( x_center ,x_width , f ile_list .last , N , nua ) ; 

—  (11  :  Initialise  weights  and  thresholds  for  each  layer 

for  j  in  LI .W' range ( 2  I  loop 
for  i  in  LI .W' range! 1 )  loop 

unifora  (  center,  width,  seed,  Ll.W(i,j)  ); 

end  loop; 

unifora  (  center,  width,  seed,  Ll.theta(j)  ); 
end  loop; 

Ll.W  old  :•  Ll.W; 

LI. t Set a  old  : »  LI. theta; 
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for  3  in  L2  .V  rang*  (  2  )  loop 
for  i  in  L2 .W' rang* ( 1 )  loop 

uniform  (  cantor,  width,  saad,  L2.W(i,j)  ); 
•nd  loop; 

uniform  (  cantar,  width,  saad,  L2.thata(j)  ) ; 
and  loop; 

L2.W_old  :»  L2.W; 

L2.thata  old  :«  L2.thata; 


for  j  in  L3 .W' ranga ( 2 )  loop 
for  i  in  L3 .W' ranga ( 1 )  loop 

uniform  (  cantar,  width,  aaad,  L3.W(i,j)  ); 

and  loop; 

uniform  (  cantar,  width,  saad,  L3.thato(j)  ); 
and  loop; 

L3.W_old  L3.W; 

L3.thata  old  :•  L3.thata; 


—  training  loop 


total_cost  :■  cost  thrashold  +  1.0; 
count  :«  0; 

whila  total  cost  >  cost  thrashold  loop 


ata  :•  initial  ata  *  axp(  -ata  dacay  *  PLOAT(count)  ); 


—  [2)  :  Gat  input  data 


gat  input  data  (  Ll.X.D  out,x  cantar, x  width , nun , N , fi la  1 ist , last , saad  ); 


—  [31  :  Computa  Natwork  Output 


computa  output; 


—  [4]  :  Updata  natwork  waights 


L3 . dal  ;»  output_dal  (  L3.Y,  D_out  ); 

updata  waights  (  L3.W,  L3.W_old,  L3.dal,  L3.X,  ata,  alpha,  cost  ); 
total  cost  :■  cost; 


1,2 .  dal  :■  intarnaldal  (  1,2. Y,  L3.W,  L3.dal  ); 

updata_waights  (  L2.W,  L2.W_old,  L2.dal,  L2.X,  ata,  alpha,  cost  ); 
total  cost  :•  total  cost  +  cost; 


LI. dal  intarnal_dal  (  Ll.Y,  L2.W,  L2.dal  ); 

updata_waights  (  lT.W,  Ll.W_old,  LI. dal,  Ll.X,  ata,  alpha,  cost  ); 
total  cost  :«  total  cost  ♦  cost; 


—  (4a]  Updata  tha  natwork  thrasholds 

thrashold  valuas  of  output  layar  ara  not  updatad 


updata_thrasholds  (  L2.thata,  L2.thata  old,  L2.dal,  ata,  alpha,  cost  ); 
total_cost  :•  total  cost  +  cost; 

updata_thrasholds  (~L1 . thata ,  LI . that  a  old ,  LI. dal,  ata,  alpha,  cost  ); 
total  cost  ;w  total  cost  *  cost; 


bagln  —  ax 'option  block 


if  count  mod  output_intarval  “  0  than 
naw_lina; 

putT’Total  Cost  «  ’);  put ( totsl_cost , 0 , 4 , 0 ( ;  naw_lina; 
put (count , S  ) ; 

tast_data(x  cantar, x  width, film  list , last ,N,H) ; 

opan  (Pila  «>  lnt_fiTa,  —  Tf  quit.tast  has  baan  dalatad 

moda  «>  out  fila,  —  a  nama_arror  axcaption  is  raisod 

nama  «>  "OuTt.tast" I ; 
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PACKAGE  TITLE  :  PERCEPTRON_SUPPORT  * 

”  * 

AUTHORS  :  LT  STEVE  TROXEL  * 

CAPT  DENNIS  RUCK  * 


_ 

* 

ft 

DISCRIPTION 

This  package  contains  the  support 

ft  ft  ft 

— 

ft 

necessary  to  run  MP 

— 

ft 

INPUTS 

Proctdur#  D«p«nd«nt 

— 

ft 

OUTPUT 

Procedure  Dependent 

with  vector  operations; 
with  siath  lib  extension 
with  f loat_«ath_lib; 
with  float_text  io; 
with  integer_text_io ; 
with  text  io; 
with  system; 


use  vector_operstions ; 
use  aath_lib  extension 
use  f loat_aath_lib; 
use  float_text  io; 
use  integer_text_io; 
use  text  io; 


package  perceptron  support  is 


function  sigsioid  (  input  :  vector  )  return  vector; 


function  output_del  (  Y,  D_out  :  vector  )  return  vector; 


function  internal  del 


(  Y 

W 

next  del 


vector : 

■atrix; 

vector  )  return  vector; 


procedure  update_weights 


W 

:  in  out  aatrix 

W  old 

:  in  out  aatrix 

del 

:  vector; 

X 

;  vector; 

eta 

:  FLOAT; 

alpha 

:  FLOAT; 

cost 

:  out  FLOAT  ); 

function  find_aax  (  x  :  vector  I  return  vector; 

procedure  get_nora_values  (x  center,  x_width  :  in  out  vector; 

file_list  :  in  string; 

last  :  in  natural; 

N  :  in  integer; 

Nub  ;  in  integer); 

procedure  get_input_date  (  X,  D_out  :  out  vector; 

X_center , x_width  :  in  vector; 
nua,N  :  in  integer; 
file_list  ;  in  string; 
last-  ;  in  natural; 

seed  :  in  out  systea.unsigned_longword  ); 


procedure  ssve_results ( theta_l , theta_I , theta  3 ,x_center,x_ width  :  in  vector 
W  1 ,¥  2 ,W  3  ;  in  aatrTx)  ; 


(  edure  updetethrefholds  (  theta 

theta_old 

del 

eta 

alpha 

cost 


in  out  vector; 
in  out  vector; 
vector ; 

PLOAT; 

FLOAT; 

out  FLOAT  ) ; 
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•nd  percept ron_support ; 


package  body  perceptron_support  la 

function  sigaoid  (  input  :  vector  )  return  vector  ia 
output  :  vector  (  input 'range  ); 

—  Thia  function  inpleaents  the  aigaoid  function 

—  used  in  the  output  calculation 

begin 

for  i  in  input ' range  loop 
begin 

output(i)  :■  1.0/(1.0+-exp(-input(i)  )  ); 
exception 

when  FLOOVEMAT  ->  outputtil  0.0; 
end; 

end  loop; 
return  output; 
end  sigaoid; 


function  output_del  (  Y,  D_out  :  vector  )  return  vector  is 

del  :  vector  (  Y' range  ); 

begin 

for  i  in  Y' range  loop 

del  (i)  :»  Y ( i ) * ( 1 . 0-Y ( i ) ) * ( D_out ( i ) — Y  < i ) ) ; 
end  loop; 

return  del; 

end  output_del; 


function  internal_del  (  Y  :  vector; 

w  :  aatrix; 

next_del  :  vector  )  return  vector  is 

del  :  vector  (  Y' range  ); 

*r_slice  :  vector  (  W'range(2)  ); 

begin 

for  j  in  del ’range  loop 


for  k  in  W_sl ice ' range  loop 

v_sliee  ( k )  W(j,k); 

end  loop; 

del  (j)  Y< j)*(1.0-T( jl ) • ( next_del *W_a 1 ice  I ; 
end  loop; 

return  del; 

end  internal_del ; 

function  find_aax  I  X  :  vector  )  return  vector  ia 

aax  ;  FLOAT  0.0; 

aax_index  :  integer  :■  X'firat; 


e 


output  :  vactor  (X'ranga)  :■  (othars  ■>  0.0); 

bag  in 

for  i  in  X'ranga  loop 
if  X ( i )  >  aax  than 
■ax  X( i ) ; 

■ax  indax  : »  i; 
and  i F; 
and  loop; 

output <aax_indax )  :■  1.0; 
raturn  output; 
and  find  Bax; 

procadura  gat_nor»_valuas  (x  cantar,  x_width  :  in  out  vactor; 

fTla_list  ;  in  string; 

last  :  in  natural ; 

R  :  in  intagar; 

Rub  :  in  intagar)  is 

x_«in  :  vactorll  ..  H)  ;«  (othars  ■  >  1.0); 

xaax  :  vactorll  ..  R)  :«  (othars  «>  0.0); 

class  :  intagar; 

last_sub  :  natural; 

rowl.coll  :  intagar; 

lnt_fila  :  Taxt_io.fila  typo; 

Int_fila2  :  Taxt_io . f ila_typa; 

fila_na»a  :  string! 1 . .60 ) ; 

storaga_array  :  array ( 1 . . 21 , 1 . . 21 )of  float; 

x_count  :  intagar  :«  1; 

d_sixa  :  intagar; 

aua  :  float  0.0; 

—  This  procadura  finds  tha  cantar  and  width  of  tha  distribution 

—  of  aach  cosponant  in  tha  input  data.  This  procadura  is  writtan 

—  for  tha  spacific  fila  format  usad  in  this  thasis  and  would 

—  naad  Modification  for  diffarant  fila  structura. 

bagin  —  gat_nor»_valuas 


fila  «>  Int  fila, 
■oda  - )  in  Fila, 


naaa  ->  f ila_list ( 1 . . last ) ) ; 

(  for  ]  in  1  . .  Rub  loop 

gat_lins(int  fila.fi la_naaa , las t_sub I ; 

opan  (  fila  • >  Int  fila2, 

■oda  •>  in  Fila, 

naaa  » >  fiTa  naaa (1.. last  sub)); 
ga t(Int_fila2, class)  ; 

^  for  row  in  1  ..21  loop 

for  col  in  1  . .  21  loop 
gatllnt  fila2,rovl); 
got  I Int  f i la2 , coll )  ; 

got  I  Int  fi la2 , Intagar I Storaga  ar r ay ( r ow  ,  co 1  )  )  I  ; 

and  loop; 
and  1 oop ; 

closa  (Int  fila2i; 
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d_tise  :«  integer<sqrt(float(N) ) )/2; 

Tor  row  in  11  -  d  sit*  . .  11  +  d_sie*  loop 
for  col  in  11  -  d_*it*  . .  11  +  d_sire  loop 
■us  :a  sub  +  storage_array ( row, col ) **2; 

•nd  loop; 

•nd  loop; 

sub  :»  sqrt(suB); 

—  Noraalis*  th*  data 

For  row  in  11  -  d_sis*  . .  11  +  d_sise  loop 

Tor  col  in  11  -  d_sisa  . .  11  +  d_sis*  loop 

storage_array ( row.col )  :»  storage_array ( row, col I/sub; 

•nd  loop; 

•nd  loop; 

x  count  :■  1; 

—  rind  box  and  Bin  valu*s  for  «ach  coaponent 

for  row  in  11  -  d_sise  . .  11  +  d_sis«  loop 

Tor  col  in  11  -  d_sie«  . .  11  +  d_sis»  loop 

If  storage_array ( row, col )  <  x_nin( x_count )  than 
x_ain( x_count )  :«  storage_array( rov.col ) ; 

•nd  if; 

If  storage_array ( row, col )  >  x_aax (x_count )  th»n 
x  Bax(x_count)  ;•  storage_array ( row, col ) ; 

•nd  if; 

x  count  :«  x_count  +  1; 

•nd  loop; 

•nd  loop; 

•nd  loop; 

—  Coapu t •  c«nt«r  and  width  of  distribution 


Tor  j  in  x_aax' range  loop 

x_width(j)  :■  x_Bax(j)  -  x_Bin(j); 
x— center! j)  :«  x_width(j)  /  2.0  +  x_min(j); 
•nd  loop; 

close  <int_file); 

•nd  get_norn_values ; 


procedure  g*t_input_data  (  X,  0_out  :  out  vector; 

x_center,x  width  :  in  vector; 
nua , N  :”in  integer; 
fil«_list  :  in  string; 
last  :  in  natural; 

seed  :  in  out  syst«B.unsignsd_longword  ) 

class  :  integer; 

pick  :  float; 

last_sub  ;  natural; 

rowl.coll  :  integer; 

Intfile  :  Text_io.f ile_type: 

flle_naae  :  string! 1. .10) ; 

•torage  array  :  array ( 1 . .21 , 1 . . 21 lof  float; 
x_count”  :  integer  1 ; 

d_site  :  integer; 

•ua  float  :■  0.0: 


—  This  procedure  read*  in  the  input  data  and  perforas  the 

—  preprocessing  necessary  to  send  data  to  the  actual  perceptron. 

—  This  procedure  is  written  for  the  specific  file  foraat  used 

—  in  this  thesis  and  would  need  Modification  for  different  file  structure. 

begin 

D_out  :•  (others  ■>  0.0); 
open  (  file  ■>  Int_file, 

■ode  »>  in_file, 

naae  ■>  f ile_list ( 1 . . last ) ) ; 

—  Compute  which  training  file  to  read 

ath_randoa(pick , seed) ; 

pick  : »  pick  *  float(nua)  -  0.499; 

if  pick  >  float(nua)  -  0.5  then 
pick  :«  float (nua  -  1); 
end  if; 

for  j  in  0  ..  integer (pick )  loop 

get_line ( Int_f ile , f ile_naae , last_sub ) ; 
end  loop; 

close ( Int_f ile ) ; 

open  (  file  «>  Int  file, 
node  «>  in_7ile, 

naae  •>  f iTe_naae( 1 . . last_sub ) ) ; 
get ( Int _f ile, class  ) ; 


for  row  in  1  ..21  loop 

for  col  in  1  . .  21  loop 
get ( Int_f ile, rowl ) ; 
get ( Int_f ile ,coll ) ; 

get ( lnt_f ile, Integer (Sto rage_ar ray ( row, col ) ) ) ; 
end  loop; 

end  loop; 

close  (Int_file); 

d_sise  :«  integer (sgrt ( float (N) ) )/2 ; 

—  Noraalise  and  spread  the  data  to  a  unit  hypercube 

For  row  in  11  -  d_ai*e  . .  11  +  d_siie  loop 
For  col  in  11  -  d_sise  ..  11  ♦  d_*ise  loop 
sua  :■  sua  +  *torage_array ( row , col ) * *2; 
end  loop; 

end  loop; 

sua  : »  sgrt(sua); 

For  row  in  11  -  d_*i«e  . .  11  *  d_*i«e  loop 
For  col  in  11  -  d_ai*e  ..  11  T  d_*i*e  loop 

«(a_count)  :•  Tatorage_array(Tow,coI )/sua  -  x_center(x_count ) )/ 
x  width (7_count )  ♦  0.5; 
x  count  :■  x_count  +  1; 
end  Toop; 

end  loop; 

D  out  (class )  :•  1.0; 

end  get_input_deta; 

procedure  save  results (theta_l ,theta_2 , theta_J ,x_center , x_width  :  in  vector 


V  1,W  2,W  3  :  in  aatrix)  is 


Int_fila  :  Tsxt_io . f ils_typs ; 

—  This  procsdurs  savss  tha  waights,  thata  valuas,  and 

—  training  coaponant  distributions  of  tha  natwork. 

—  This  procadura  is  callad  whan  tha  ap  prograa  is 

—  tarainatad  by  tha  cost  function  falling  balow  thrashold 

—  or  whanavar  tha  oparator  dasiras  via  tha  dalation  of  tha 

—  Quit.tast  fila. 

bagin  —  sava_rasults 


raata  (fila  u>  int_fila, 
aoda  ■>  out_fila, 
naaa  ■ >  "X_cantar . dat ’  ) ; 

for  j  in  x  cantar'ranga  loop 
put ( Int_f ila , x  cantar(j)); 
naw_lina ( int_fTla ) ; 
and  loop; 

Closa  (Int  fila); 


Craata  (fila  »>  Int_fila, 
aoda  ■>  out  fila, 
naaa  ■>  "x_width.dat"); 

for  j  in  x_width' ranga  loop 
put(lnt_fila,x  width! j)); 
naw_lina(int_fTla) ; 

and  loop; 

Closa  (Int_fila); 

Craata  (fila  •>  Int_fila, 
aoda  «>  out_fila, 
naaa  «>  "Ll_thata . dat ’ )  ; 

for  j  in  thata_l ' ranga  loop 
put ( Int_f  ila , thata_l ( j ) ) ; 
naw_lina( int_f ila ) ; 

and  loop; 

Closa  (Int  fila); 


Craata  (fila  •>  Int_fila, 

aoda  ■>  out_fila, 

naaa  ■>  "L2_thata.dat’'); 

for  j  in  thata_2' ranga  loop 
put ( Int_f ila, thata_2 ( j ) ) ; 
naw_lina(int  ft la); 
and  loop; 

Cloaa  (Int  fila); 


Craata  (fila  •>  Int_fila, 

aoda  ■)  out_fila, 

naaa  »>  ’L3~thata.dat’); 

for  j  in  thata_3 ' ranga  loop 
put (Int_f ila, thata_3( j) ) ; 
naw  linadnt  fila); 
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<1 


•nd  loop; 

Closa  (Int  fila); 


Croat*  (fil#  ■>  Int_fila, 

aod*  *>  out_filar 

naa*  ■>  "Ll_w.dat"); 

for  j  in  W_l'ranga(l)  loop 
for  k  in  W_l'ranga(2)  loop 
put  ( Int~f  ila  ,w_^l  (  j  ,  k  )  )  ; 
n#w_lin#( Int_fTla ) ; 
and  loop; 

•nd  loop; 

Closa  (Int  fila); 


Croat*  (fila  *>  lnt_fila, 
aoda  «>  out_fila, 
naaa  ■  >  "L2_W.dat"); 

for  j  in  W_2’ranga(l)  loop 
for  k  in  W_2'ranga(2)  loop 
put ( lnt_f ila ,w  2(j,k)l; 

naw_lina ( Xnt_fTla ) ; 

•nd  loop; 

•nd  loop; 

Cloaa  (Int  fila); 


Croat*  (fila  »>  Int_fila, 
aoda  «>  out~f ila , 
naaa  ->  "L3  W.dat"); 


for  j  in  W_3 ' rang* ( 1 )  loop 
for  k  in  W_3'ranga(2)  loop 
put ( Int_f ila ,W_3 <  j  ,  k  )  )  ; 
Nav_lina ( Int_f ila ) ; 

•nd  loop; 

•nd  loop; 


Closa  (Int_fila); 

•nd  savarasults ; 

in  out  aatrix; 
in  out  aatrix; 
vac tor; 
vactor; 

FLOA  T; 

FLOAT ; 

out  FLOAT  )  is 

taap  :  FLOAT; 

cost  SUB  ;  FLOAT  :■  0.0; 


procadura  updata  waights  (  W 

W_old 

dal 

X 

•ta 

aloha 
cont  : 


bag  in 

for  j  in  W'ranga<2>  loop 
for  i  in  W'ranga(l)  loop 

taap  :■ 

W(i,j)  :■  W(i,j)  ♦  ata'dal (  j ) *X ( i  )  ♦  alpha* <W( i . J >-W_old  j)) 
W  old  i , j )  :■  taap; 

cost  sua  :«  costsua  ♦  A1S(  <W(  i  .  J  l-»*_old(  i  ,  j  I  >/V(  i  ,  J  )  ) : 

•nd  1 oop ; 

•nd  loop; 
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( 


c 


r 


cost  : ■  cost  sus; 


end  update  weights; 


procedure  upd«te_thresholds  (  thete  :  in  out  vector; 

theta  old  :  in  out  vector; 

del  :  vector; 

eta  :  FLOAT; 

alpha  :  FLOAT; 


:  out  FLOAT  )  is 


temp 

cost  sun 
t  j 


:  FLOAT; 

:  FLOAT  :»  0.0; 
:  integer; 


for  j  in  theta' range  loop 

t_j  :»  j; 

tesip  :«  theta (j); 

theta  (j)  :■  theta(j)  ♦  eta*del(j)  +  alpha *( theta ( j ) -theta_old( j >)  ; 
theta_old(j)  :«  teap; 

costjua  :«  cost_suB  +  ABS  (  ( theta  (  j  )-theta_old  (  j  M/theta  (  j  )  ); 
end  loop; 

cost  ;•  cost  sua; 


exception 

when  IUIMERICERROR  -> 

putllne ( "UPDATE ^THRESHOLDS  : 
putT" Index  J  «  ">;  put  It  j,3) 
put ( theta <t_j I ,0,4,0) ;  put ( " , 
new  line;  put ( "THETA_OLD( J )  » 


NUMERIC  ERROR  info  follows:"); 
put(",~  THETA! J>  -  "); 

DEL ( J )  -  ");  put(del(t_j), 0,4,0) 
");  put ( theta_old( t  j) ,0,4,0); 


put ( " ,  COST_SUM  ■  "T;  put ( cost_!UB,0 ,4 ,0 ) ;  new  lTne; 
put ( "ETA  -  "T;  put (eta, 0,4,0);  put ( ’ ,  ALPHA  -  T); 
put ( alpha , 0 , 4 , 0  ) ;  new_line; 


end  updete  thresholds; 


end  perceptron  support; 


— 

*  * 

— 

* 

PACKAGE 

TITLE  :  KATH_LIB_£XTENSIONS 

_ 

* 

AUTHORS 

:  LT  STEVE  TROXEL 

— 

* 

CAPT  DENNIS  RUCK 

— 

* 

* 

* 

DISCRIPTION 

This  psekag*  contains  support 
nscsssary  to  run  HP 

— 

* 

INPUTS 

Procedure  Dependent 

— 

* 

* 

OUTPUT 

Procedure  Dependent 

with  sys tea;  us*  system; 

package  math_lib_extension  is 


procedure  at h  random  (  val  :  out  float;  seed  ;  in  out  unsigned  longword  ) 
pragma  INTERFACE  (  vaxrtl,  ath_randoa  ); 

pragma  IKPORT_VALUED_PROCEDURE  (  ath_randoa,  "MTH$RANDOM" , 

aechanisa  «>  (value,  reference)); 


procedure  uniform  (  center 
width 

seed 

val 


in  float; 
in  float; 

in  out  unsigned_longword; 
out  float  >; 


procedure  gauss 


an  (  mean 

variance 

seed 

val 


:  in  float; 

:  in  float ; 

;  in  out  uns 
:  out  float 


gn  e  d_l on  gwo  r  d ; 


end  aa th_lib_ex tens ion ; 
package  aath_lib_extension  is 


procedure  mth_random  (  val  :  out  float;  seed  :  in  out  uneigned_longword  > 
pragaa  INTERFACE  (  vaxrtl,  ath  random  ); 

pragma  IHPORT_VALUED_PROCEDirRE  (  ath_random,  "MTH$RANDOM" , 

aechanisa  «>  (value,  reference)); 


procedure  uniform  (  center 
width 

seed 

val 


in  float; 
in  float ; 

in  out  unsigned_longword; 
out  float  ) ; 


procedure  gaussian 


aean 

variance 

seed 

val 


in  float; 
in  float; 

in  out  unsigned_longword; 
out  float  ); 


end  aath  lib  extension; 


r«* 


*  PACKAGE  TITLE  :  VECTOR  OPERATIONS 


*  AUTHOR  :  LT  STEVE  TROXEL 

*  CAPT  DENNIS  RUCK 


*  DISCRIPTION  :  This  packaga  contains  tha  vactor  aath 

*  support  nacassary  to  run  HP 


*  INPUTS 

* 

*  OUTPUT 


:  Procadura  Dapandant 
:  Procadura  Dapandant 


packaga  vactor_oparations  is 

typa  vactor  is  array  (  intagar  ranga  <>  )  of  PLOAT; 

typa  matrix  is  array  (  intagar  ranga  <>,  intagar  ranga  <>  )  of  FLOAT 


function 

laft 

:  vactor; 

V 

right 

:  aatrix  )  raturn  vactor; 

v' 

V 

c 

function 

(  laft. 

right  :  vactor  )  raturn  vactor; 

y 

ft 

function 

«  ft  « 

(  laft, 

right  :  vactor  )  raturn  float; 

s 

n 

and  vactor  oparations; 

j-' 

packaga 

body 

vactor 

oparations  is 

function 

*  »  "  ( 

[  laft 

:  vactor; 

•• 

right 

:  matrix  )  raturn  vactor  is 

£ 

*  ( 

SUB 

:  PLOAT; 

■ 

product 

;  vactor  < 

right ’ranga<2>  J; 

bagin 

for  j  in  right ' ranga! 2 )  loop 
sub  : *  0.0; 

for  i  in  right ' ranga ( 1 )  loop 

sub  : “  sua  *  loft ( i ) ‘right ( i , j ) ; 
and  loop; 

product) j)  :«  sub; 
and  loop; 


raturn  product; 
and  "*"; 


function  (  laft,  right  :  vactor  )  raturn  vactor  is 

diff  :  vactor  (  laft ‘ranga  ); 


bagin 


for  i  in  loft 'ranga  loop 

diff(i)  laft(i)  -  right ( i ) ; 
and  loop; 


raturn  diff; 
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function  "*"  (  loft,  right  :  vector  I  return  FLOAT  is 

sua  :  FLOAT  :«  0.0; 

bogin 

for  i  in  loft 'rang*  loop 

sua  ;•  sua  +  lof  t  (  i  )  ‘right  (  i  )  ; 

•nd  loop; 

roturn  sub; 

•nd  " • " ; 

•nd  v*ctor_op*rations ; 


PROGRAM  TITLE  :  DATA  DIS 


*  * 
*  AUTHORS  :  LT  STEVE  TROXEL  * 


01 SCRIPT ION  :  THIS  PROGRAM  COMPUTES  THE  DISTANCE 

BETWEEN  A  TEST  ARRAY  AND  THE  AVERAGE 
LOCATION  OF  A  SET  OF  TRAINING  ARRAYS 

INPUTS  :  NUMBER  or  INPUT  FEATURES 

TRAINING  AND  TEST  FILES 

OUTPUT  :  CORRESPONDING  DISTANCES 


with  taxt_io; 
with  float_taxt_io; 
with  intagar_taxt  io; 
with  float  aath  lTb; 


usa  taxt_io; 
usa  f loat_taxt_io ; 
uaa  intagar_taxt  io 
usa  float  aath  lTb; 


Procadura  Data  dis  is 


Typa  Array_Typa  is  array  ( Intagar  ranga  <>,  Intagar  ranga  O)of  float; 


S_Array 

T_Array 

S_Fila_NaBa 

T_Fila_Naaa 

Fila_NaBa 

Fila_LIST 

S_Last ,T_Last ,n,nuB, 

last , last2 .class , 

rowl ,coll , d_sixa 

S_Fila 

T  Fila 

rirrriia 

INT_Fila2 

S_row,  S_col,skip, 
S_valua,  T__row, 
T_col ,  T_valua 
S_sub,  T_sub, 
Distanca , sub 
ans 


Array_Typa ( 1 . . 21 , 1 .  .  21 )  ; 
Array_Typa ( 1 . .21,1. .21); 
string  1 1 . .80); 
string (1. .80); 
string) 1 . . 80 ) ; 
string ( 1 .  .  80  ) ; 


Intagar; 

Taxt  io.fila_typa; 
Taxt~io . f ila_typa; 
Taxt_io.fila  typa; 
Taxt_io.f ila~typa; 


intagar; 

float  :»  0.0; 
Charactar; 


bagin  — Data  dis 

—  this  procadura  roquiras  tha  input  filas  to  ba  in  a  spacific  foraat. 

—  tha  first  racord  contains  tha  class 

—  raaaining  racord*  ara  in  a  row,  coluan,  valus  foraat 

—  for  a  coaplat*  21  x  21  array. 


for  row  in  1  . .  21  loop 
for  col  in  1  . .  21  loop 
t_array ( row, col ) 0.0; 
s_array ( row, col ) :■  0.0; 
and  loop; 
and  loop; 


n*w_lina; 

put ( *Entar 

naw_lina; 

putT’fntar 

naw_lina; 

putT’Entar 


tha  fila  list  naaa  ....’); gat_lina ( fila_list , last ) ; 
tha  nuabar  of  training  filas ..."  I ;gat (nu* | ;skip_lina; 
tha  nuabar  of  input  foatures  gat ( n Iskip  lino; 


( 


•*  ( 


r 


d_sita  intagar ( sqrt ( float ( n )) )/2 ; 
opan(  fila  ->  Int_fila, 
aoda  ■>  in_fila, 
naaa  ■  >  f iTa_list ( 1 . . last ) ) ; 

—  it  is  assuaad  that  tha  training  filas  ara  listad  first  in 

—  tha  fila_list  fila 

—  find  tha  rafaranca  point 

—  this  is  tha  point  spacifiad  by  tha  avaraga  valua  of 

—  aach  coaponant  in  tha  first  class  of  training  data 

for  j  in  1  . .  nu a  loop 

gat_lina ( int_f ila , f ila_naaa , last 2 ) ; 

opanf  fila  ■>  Int_fila2, 
aoda  ■>  in^fila, 
naaa  ■>  f ila_naaa( 1 . . last! ) ) ; 
gat ( int_f ila2 , class ) ; 

for  row  in  1  . .  21  loop 
for  col  in  1  21  loop 

gat  (  int_f ila2 , rowl ) ; 
gat ( int_f ila 2 , coll ) : 

gat  (  int_f ila 2 , intagar ( s_ar ray ( row, col ) ) ) ; 
and  loop; 
and  loop; 
cloaa ( int_f ila 2 ) ; 

sua  :■  0.0; 

—  noraalisa  tha  input  data 

for  row  in  11  -  d_sisa  .  .  11  +  d_sisa  loop 

for  col  in  11  -  d_sisa  .  .  11  +  d_siza  loop 
sua  : •  sua  +  s~array ( row, col J7 *2 ; 
and  loop; 
and  loop; 

sua  : -  sqrt(sua); 

for  row  in  11  -  d_sisa  . .  11  ♦  d_sisa  loop 

for  col  in  11  -  d_si*a  . .  11  +  d_si*a  loop 

t  array ( row, coT)  :«  t_array ( row, col )  ♦  s_array ( row, col )/sua; 
and  Toop; 
and  loop; 

and  loop; 

closa ( Int_f  ila  )  ; 

for  row  in  11  -  d_siaa  . .  11  ♦  d_sira  loop 

for  col  in  11  -  d  sisa  ..  11  ♦  d  sisa  loop 

t_array ( row.coT)  :«  t_array I  row, col )/float(nua) ; 


and  loop; 
and  loop; 


c 


€ 


( 


opan(  fila  » >  Int  fila, 
aoda  »>  in  7ila , 
aaaa  • >  f iTa_list ( 1 . . last ) ) : 

—  coaputa  distancas  on  tha  antira  list  of  filas 

whils  not  and  of_f lla( lnt_f ila )  loop 

diatanca  : «  0.0; 
aua  : «  0.0; 


B-20 


fila  naaa  ( 1 .  .  3  5 )  :  •  " 

gat  Tinalint  f ila . f ila_naaa , last2 ) ; 
opart  (  fila  ■>  Int  fila2, 
aoda  «>  in  lila, 
nm  •>  f  i  lajiiia 1 1  .  .  Iast2  |  )  ; 
gat (int  f i la2  , class ) ; 

for  row  in  1  21  loop 

for  col  in  1  21  loop 

gat ( int_f i la 2 , rowl ) ; 
gat ( int_fila2 , coll ) ; 

gat ( int  fila2, int agar ( s_ar ray ( row, col ) ) ) ; 
and  loop; 
and  loop; 
closa(int_fila2) ; 

for  row  in  11  -  d  sita  . .  11  +  d_sisa  loop 

for  col  in  11  -  d_si*a  . .  11  +  d_sisa  loop 
sua  :«  sua  *  s_* rray ( row , col > * • 2 ; 
and  loop; 
and  loop; 

sua  ; •  sqrt ( sua ) ; 

for  row  in  11  -  d_sisa  . ,  11  +  d_sisa  loop 

for  col  in  11  -  d_sita  . .  11  +  d_sisa  loop 

distanca  :«  distanca  +  ( «_ar ray ( row , col )/su» 

t_ar ray ( row , col ) ) *  *2 ; 

and  loop ; 
and  loop; 

distanca  :■  sqrt ( distanca ) ; 
naw_lina; 

putTf ila_naaa ( 1 . . 35 ) ) ; put ( distanca , 4 ,4,0); 
and  loop; 

closal Int_f ila ) ; 

End  Data  Dis; 


W-A188  828 

UNCLASSIFIED 


POSIT  10*1  SCALE  AND  ROTATION  INVARIANT  TARGET  2/ A 

RECOGNITION  USING  RANGE  IhAGERV(U)  AIR  EOSCE  INST  OF 
TECH  NRIGHT-PATTERSON  AFB  OH  SCHOOL  OF  ENGI 
S  E  TROXEL  OEC  87  8FIT/GE0/ENG/87D-2  F/G  17/9  NL 


—  *  THE  FOLLOWING  IS  A  LISTING  Or  KOBEL  AND  MARTINS 

—  *  DECLARATION  HANDLER  PACKAGE.  THIS  PACKAGE  HANDLES 

—  *  THE  DECLARATIONS  FOR  THE  EXECUTIVE  PROGRAM.  EXECUTIVE 

—  *  ASSUMES  A  DIRECTORY  SYSTEM  SPECIFIED  BY  THE  LAST_DIR 

—  *  AND  DIRECTORY  STATEMENTS  BELOW.  THESE  NEED  TO  BE 

—  *  CHANGED  TO  REFLECT  THE  USERS  DIRECTORY  SYSTEM  AND 

—  *  WHERE  ALL  THE  OUTPUTS  OF  EXECUTIVE  ARE  TO  BE  SENT 


—  Prograa:  DECLARATION_HANDLER 

—  Authors:  Cspt  Williaa  Kobel  and  Capt  Tiaothy  Martin 

Data:  1  Octobar  1986 

Language:  Vax  Ada 

—  Systea:  ISL  VAX/VMS 

Function:  Allows  global  daclarations 


packaga  DECLARATION_HANDLER  is 


—  Thasa  daclarations  fora  tha  basic  iaaga  array 

typa  Caplx_Type  is 
racord 

Raal  :  float; 

Iaag  :  float; 
and  racord; 

typa  Iaaga_Array_Typa  is  array  (intagar  ranga  <>, 

intagar  ranga  <>)  of  Caplx_Typa; 

—  This  typa  daclaration  allows  thraa  diffarant  kinds  of  corrolation  for 

both  tha  cyclic  and  linaar  casas 

typa  Corr_Flag_Typa  is  (Cir_0,  Cir_l,  Cir_2,  Lin_0,  Lin_l ,  Lin_2 ) ; 

—  This  typa  daclaration  is  uaad  to  kaap  track  of  tha  fila  typas  within 

—  OPERATIONSHANDLER 

typa  Array_Flag_Typa  ia  (Squara,  Lg__Square,  Polar,  Lg_Polar); 

—  Thasa  daclarations  fora  tha  basic  iaaga  fila  diaansions 

V_Row  :  intagar  :•  256; 

V_Col  :  intagar  :■  256; 

—  This  daclaration  sots  tha  default  directory  for  all  input/output 
procedures  within  F I LE_HANDL£R 

Last_Dir  :  natural  :•  27; 

Directory  :  string  (1  ..  Last_Dir)  :■  " |af itusor . stroxol . vidf ilas J 

—  This  sets  up  the  pragaa  interface  to  the  RTL  to  spawn  DCL  coaaands 

procodura  SEND_COMMAND  ( Coaaand_Lina  ;  in  string); 
pragaa  interface  (RTL,  SEND_COMMAND ) ; 

pragaa  iaport_procaduro  (Internal  ■>  SEND_COMMAND, 


External  ■>  "lib$spawn", 

Paraaatar_Typas  ■>  (string), 
Machanisa  ■>  (descriptor (S))); 


and  DECLARATION  HANDLER; 


•  PACKAGE  TITLE  :  PEAK 


*  AUTHORS  :  LT  STEVE  TROXEL 


DISCRIPTION  :  THIS  PROGRAM  LOCATES  THE  PEAK  VALUE 
IN  AN  ARRAY  AND  SAVES  A  21X21  ARRAY 
OF  NUMBERS  AROUND  THE  PEAK 

INPUTS  :  512  X  129  CORRELATION  ARRAYS 

OUTPUT  :  A  21  X  21  ARRAY  AROURD  THE  PEAK 


—  THIS  PROGRAM  IS  SET  UP  TO  RUN  IN  A  BATCH  ENVIRONMENT 

—  DURING  THE  THESIS  I  WAS  USING  EXECUTIVE  TO  CREATE  MANY 

—  PSRI  CORRELATIONS.  THESE  ARE  VERY  LARGE  ARRAYS  (2K  BLOCKS)  — 

—  AND  TAKE  TIME  TO  CREATE  (10  MIN  CPU  TIME).  THIS  MADE  IT 

—  NECESSARY  TO  RUN  THE  CORRELATIONS  CONTINUOUSLY  IN  A  BATCH 

—  MODE.  HOWEVER,  IN  A  SHORT  TIME  THE  CREATED  ARRAYS  WOULD 

—  EAT  UP  ALL  AVAILABLE  MEMOREY .  SUBMITING  THIS  PEAK  PROGRAM 

—  ABOUT  EVERY  2  HOURS  HELP  IN  THIS  PROBLEM. 


with  text_io; 
with  float  taxt  io; 
with  integer  telct_io; 
with  File_Handler; 
with  Daclaration  Handlar; 


usa  text_io; 

usa  float_text_io; 

usa  intag?r_taxt  io; 

usa  Fila_Handlar7  —  A  KOBEL, MARTIN  PACKAGE 
usa  Daclaration  Handlar; 


Procadura  Paak  is 


For  so»a  raason  thasa  larga  arrays  hava  switchad  to  an  — 
x,y  raprasantation  whara  0,0  if  tha  Zowar  laft  cornar  — 


laaga 

laaga  Fila_Na»a 

New_FTle_Naae 

Total_File_Naae 

Intarnal_Fila 

Last 

Last_naw 

Last_total 

Max_row 

Max_col 

rowT.coll , row2 ,col2 

■ax_val 

ans 

Extansion 

bagin  —  Paak 

Start_loop: 

loop 


—  Tha  paak. coa  fila  will  craata  a  fila  list  of  all 

—  tha  .lcr  filas.  Thasa  filas  ara  tha  corralation  filas. 

—  Howavar,  tha  fila  list  will  start  with  a  diractory  naaa 

—  that  wa  don't  want  to  raad 

Gat  lina(lBaga_f ila  naaa, last); 


:  Iaaga_Array_Typa(0. .511,0. .255) ; 
:  string) 1 .  .80) ; 

:  string ( 1 .  .  80  ) ; 

:  string(l. .Last_Dira80); 

:  Text_io.file_type; 

:  natural  : •  0~ 

:  natural  : -  0; 

:  natural  : ■  0; 

:  intagar  :■  0; 

:  intagar  :•  0; 

:  intagar  :«  0; 

:  float  0.0; 

:  character; 

;  string  (1..4)  ".dat"; 


If  lUflJ  (  1  )  m  '  R  '  or 

laaga  f ile_naae ( 1 )  •  'r'  than 
exit  Start_loop; 
and  if; 

and  loop  atart_loop; 

Paak  loop: 
loop 

■ax  val  : ■  0.0; 

*ea3_File ( laaga  Fi lo_ltaao ,  Last , laaga ) ; 

Change_Ex tana ion ( Xaa  ge_Fi 1 a_Naaa ,  Hew_F i 1 a_Naaa , La  a  t , 
Lastjtiew,  'Extension); 

Laat  Total  ; ■  Last  now  +  Last  dir; 

Total_File_Reae( 1 . . Last_total )  :«  Directory ( 1 . . Last_dir ) 

l  Naw_Fila_Haae ( 1 . . Last  Now); 

Croats  (  fila  ■ >  Internal  Pile, 
aoda  ■>  out_File” 

naaa  »>  Total_f ilo_Naaa ( 1 . . {Last_Total ) ) ) ; 

find  the  paak  value 

ror  row  in  laaga ' range ( 1 )  loop 
For  col  in  laaga ' range ( 2 )  loop 

If  Iaage( row, col ) . real  >  aix  vil  than 
aax_val  :■  laaga  (  row,  col  Kraal  ; 
rowT  :«  row; 
coll  ; m  col; 
end  if; 
and  loop; 
and  loop; 

create  a  21  x  21  array  around  the  paak 
a  wrap  around  is  used  between  the  top  and  bottom 
and  between  the  sides 

Put ( rowl ) ;Put (coll ) ; Put (aax_val ) ; 

Tor  row  in  rowl-10  .  .  rowl+To  loop 
For  col  in  coll-10  ..  coll+10  loop 
If  row  <  o  than 

row2  :■  512  +  row; 
also 

if  row  >  511  than 

row2  : ■  row  -  512; 

also 

row2  : »  row; 
and  if; 
and  if; 

If  col  <  0  than 

col2  256  ♦  col; 

else 

If  col  >  255  than 


col 2  col  -  256; 

also 

col2  ;■  col; 
and  if; 
and  if; 

put ( Internal_File , row2 ,6 ) ; 
put ( Internal_File ,col2 , 6  )  ; 

put ( Internal  f ila , Integer ( laaga ( row2 ,col2 ) . real ) , 10 ) ; 
naw_lina( Interna l_Fi la ) ; 

End  loop; 

End  loop; 

put(Internal_Pile,999,6) ; 
put ( Into rnal_F ila, 999 ,6 ) ; 


put ( Internal_File ,999 ,6 ) ; 
Close(Internal_File) ; 

—  after  the  list  of  file*  there  will  be 

—  a  blank  line,  this  is  where  we  want  to  stop 

Oat  line < lnaqe_f ile_na»e , last); 

If  Tast  -  0  then  ~ 
exit  peak_loop; 
end  if; 

end  loop  peak_loop; 

End  Peak; 

*  THE  FOLLOWING  IS  A  LISTING  Or  THE  PEAK.COM  » 

*  TILE  USED  TO  RUN  THE  PEAK  PROGRAM  * 


$set  default  (af ituser . st roxel . vidf iles ] 
$dir/col«l/out«peak.inp  ».lcr 
•  $assign/usar  peak.inp  sys$input 

$assign/user  peak. out  sys$output 
$run  peak.exe 
Sdel  *  .  ler ; * 

$pu  * . lgf 
Spu  *.vid 

—  The  delete  resoves  the  correlation  files  which  are  not 

—  needed  since  we  now  have  the  peak.  The  pu  statements  are 

—  to  renove  extra  rotated  versions  of  the  psri  files  (.lgf) 

—  and  the  vidio  files  (.vid) 


o 


*  PACKAGE  TITLE  :  GOODMAN  SCHWARZ 


•  AUTHOR  :  LT  STEVE  TROXEL 


DISCRIPTION  :  This  package  sxscutss  a  Goodaan-Schwartz 
corralation  as  discussad  in  ay  thasis. 
Ths  corralation  is  parforaad  by  first 
deviding  tha  taaplata  into  9  sactions 
and  correlating  with  aach  of  tha  9 
saparataly.  This  packaga  also  allows 
for  location  salaction  basad  on  tha 
nuabar  of  sactors  that  pass  thrashold. 
This  locatas  partially  occludad  objects. 

INPUTS  :  Iaaga_array,  Taaplata  array 

Tolaranca  used  to  daternina  acceptable 
peak  values 

OUTPUT  :  Location  of  tha  corralation  peak 

Coaplate  corralation  array 


THIS  PROCEDURE  ASSUMES  THAT  THE  SUPPLIED  TEMPLATE  * 
IS  CENTERED  AT  THE  12S.12S  LOCATION  IN  THE  ARRAY  * 


with  text_io; 
with  f loat_text_io; 
with  intagar_taxt  io; 
with  f loat_aath_lTb; 
with  declaration_handler; 
with  fila  handler; 


Procedure  Goodaan  schwa rz  is 


use  taxt_io; 

Use  float_taxt  io; 

Use  integer_text  io; 
use  f loat_aath_lTb; 
use  declaration_handler ; 
use  f ile_handler ; — A  KobeltMartin 
—  Package 


I  aaga 

Inage_Array_Type ( 0 . 

.255,0. 

.255); 

Taap 

Inage~Array~Type ( 0 

.255,0. 

.255); 

Taap  hold 

Inage_Array_Type ( 0 

.255,0. 

.255); 

Btap 

Inege~Array_Type(0 . 

.255,0. 

.255); 

Nua  Array 

Inage~Array_Type ( 0 

.255,0. 

.255); 

Nub  sector  Array 

Inage~Array_Type ( 0 

.255,0. 

.255); 

Inage  naae 

Stringd.  .SO); 

Taap  naaa 

String) 1 .  . SO )  ; 

Last  Iaage 

natural  :•  0; 

Last  Taap 

natural  ;•  0; 

Taap  sua 

float  :•  0.0; 

Tenp_ave 

float  : -  0.0; 

Taap_count 

integer  0; 

Max  Row  Iaage , 
Max  Row  Taap, 
Max_Col_Iaaga , 
Max_Col— Taap, 

S  row. 

S_col , 

T7i  row. 

Tri_col , 
Row~llaitl , 
Row~liai  1 2 , 
Col  Haiti, 
Col~liait2 , 
Count , 

Bast  row. 


:  integer; 


( 


Best_col , 
nu«_nctor 
Threshold, 
Tol , 
liait , 
Max_val , 
3ub_liait , 
Sub_thresh , 
Sub  tol 
ChoTco , 
Row_Dia, 
Col_Dia, 
Min- row_dia, 
Max_row_dia, 
Min  ;ol_dia, 
1  din 
Ex  ension 
Ana 


:  float  ; 


:  integer; 

:  String(1..4)  :■  ".bfc"; 
:  Character; 


—  *  PROCEDURE  FIND  DIM  • 

—  •  THIS  PROCEDURE  FINDS  THE  DIMENSIONS  OF  THE  TEMPLATE  * 


c# 


Procedure  Find_dia(Teap_array 
Min  row  din 
Max_row— din 
Min- col_din 
Mex_col_dia 

begin  —  Find  din 


:  in  out  Xaage_Array_Type ; 
:  in  out  Integer ; 

:  in  out  Integer; 

:  in  out  Integer; 

:  in  out  Integer)  is 


Min_row_dia  :«  256; 
Max_row_dia  :«  0; 
Min_col_dia  :■  256; 
Max  col- dia  :»  0; 


For  row  in  Teap_array' range ( 1 )  loop 
For  col  in  Teap_array'range<2>  loop 

If  Teap_array( row, enl ). real  /■  0.0  then 
If  row  >  Max  row_dia  then 
Max  row  dia  :■  row; 

End  if; 

If  row  <  Min  row_dia  then 
Min_row_dTa  :«  row; 

End  if; 

If  col  >  Max  col_dia  then 
Max_col  dTa  :■  col; 

End  if; 

If  col  <  Min  col_dia  then 
Min_col_dTa  :»  col; 

End  if; 

End  if; 


& 


End  loop; 
End  loop; 

End  Find  dia; 


—  •  PROCEDURE  SMOOTH 

—  *  THIS  PROCEDURE  SMOOTHS  THE  VALUES  OF  AN  ARRAY 

—  *  THIS  IS  NEEDED  IF  THE  ARRAYS  CONTAIN  NOISE 

—  •  THAT  MUST  BE  CORRECTED  FOR 


( 


—  The  goal  in  the  aaoothing  operation  is  to  aake  sure  that  each 

—  individual  pixel  ia  nuaerieally  between  each  adjacent  pixel. 

—  If  the  pixel  is  nuaerieally  outaide  the  value  of  adjoining 


B— 27 


c 


* 


* 


—  pixels,  its  value  is  set  equal  to  the  pixel  value  its  closest  to. 

Procedure  Seooth  <I_array  :  in  out  I«age_Array_Type )  is 

T_I«age  :  Xaage_Ar ray_Type  ( 0  . .  255 , 0  .  .  255 ) ; 

Function  Max (A  ,  8  :  float)  return  float  is 

C  :  float; 

begin  —  Max 

If  A  >  B  then 
C  :»  A; 

Else 

C  B; 

End  If; 

Return  C; 

End  Hex; 

Function  Mini  A  ,  B  :  flost)  return  float  is 

C  :  float; 

begin  —  Min 

If  A  <  B  then 
C  :■  A; 

Else 

C  :«  B; 

End  If; 

Return  C; 

End  Min; 
begin  —  Seooth 


T_Ieage  :«  I_array; 

For  row  in  I~array • f irst+1  ..  I_array ' last-1  loop 
For  col  in  I_array'f irst+1  .7  l_array' last-1  loop 


If  ( I_array I  row, col ) . real  >- 
I_array ( row, col ). real  <■ 
(I~array(row, col ) .real  <- 
I_array ( row, col ) . real  >- 

If  ( I_array ( row, col ). real 


I_array( row, col-1 ). real  and 
I_array( row, col+1 ). real )  or 
I_array ( row, col-1 ). real  and 
I_array( row, col+1 ). real )  then 

> ■  I  array ( row-1 , col ). real  and 


« 


I_array ( row, col ). real  <» 
( I_array ( row, col ) . real  <■ 
I_array ( row, col ( . real  >■ 


I_array I row+1 ,col ) . real )  or 
I~array ( row-1 , col ). real  and 
I_array(row+l, col) .real)  then 


null; 


elsif  I_array  (  row, col ) .  real  >' 
I~array( row, col ). real  > 

T_I»age ( row, col ). real  : 

elae  T_Inage( row, col ). real  : 
end  if; 


I_array( row-1 , col ). real  and 
I~array( row+1 , col ). real  then 

Max ( X_array ( row-l , col ) . real , 
I_srray I row+1 ,eol ) . real ) ; 

Mini I_ar ray ( row-1 , col ) . real , 

I  array! row+1 , col ) .real); 


elae 

If  I_erray( row, col ). reel  >■ 
I_arrey ( row, col ) . real  >• 


I_array I  row, col-1 ). real  and 
I_array I  row , col+1 ). real  then 


T_I»age( row, col ) . real  :•  Max ( I_array I  row, col-1 ). real , 


B-2* 


fc 


I_array ( row,col+l ) . raal )  ; 


* 


•  Is* 


T_Inage( row, col )  .  raal 
•nd  if; 


Min ( I_ar ray ( row, col-1 ). raal , 
I_array ( row,col+l ) . raal ) ; 


If  (T_Inaga( row, col ). raal 
T_Inaga ( row, col ) . raal 
(T_Iaaga ( row, col ) . raal 
T_l»aga ( row, col ) . raal 


>■  I_array( row-1 , col ). raal  and 
<«  I_array< row+1 , col ). raal )  or 
<«  I_array( row-1 , col ). raal  and 
>«  I  array ( row+1 , col ). raal )  than 


null ; 


alaif  T_Iaaga ( row, col ). raal  >■  I  array ( row-1 , col ). raal  and 
T_Imaga ( row, col ). raal  >-  I~array( row+1 , col ). raal  than 

T_I*aga ( row, col ). raal  :■  Max ( I_array ( row-1 , col ). raal , 

I_array( row+1 , col ) . raal ) ; 

alsa 

T_I«aga ( row , col ). raal  :«  Min ( I_array ( row-1 , col ). raal , 

I_ar ray ( row+1 , col ) . raal )  ; 

End  if; 

End  if; 

End  loop; 

End  loop; 

I_array  :«  T_Iaaga; 

End  Saooth; 


—  *  PROCEDURE  GRADIENT  * 

—  *  THIS  PROCEDURE  TAKES  THE  GRADIENT  OF  AN  ARRAY  * 


procadura  Gradiant ( Iaaga_Array  :  in  out  Imja  Array_Typa)  ia 


typa  CX_Array_Typa  ia  array ( intagar  ranga  o.,intagar  ranga  <>)  of  float; 
typa  cy_Array_Typa  is  array ( intagar  ranga  <>, intagar  ranga  <>)  of  float; 

suaX  :  float; 
subY  :  float; 

CX  ;  CX_Ar  ray_Typa ( 1 . . 3 , 1 . . 3 )  ; 

CY  :  CY_Array_Typa(l . .3 ,1 . .3 ) ; 

I_hold_array  :  Faaga_ar ray_typa ( 0 . . 255 , 0 . . 255 ) ; 

bagin  —  Procadura  Gradiant 


CX(1,1) 

«  -0.5 

CX  ( 1 , 2  ) 

-  -1.0 

CX  ( 1 , 3  ) 

:■  -0.5 

CX ( 2 , 1  ) 

■  0.0; 

CX ( 2 , 2  ) 

-  0.0; 

CX  (  2 , 3  ) 

•  0.0; 

CX  (  3 , 1 ) 

■  0.5; 

CX  (  3 , 2  ) 

>  1.0; 

CX  (  3 , 3  ) 

-  0.5; 

CY(1,1) 

«  -0.5 

CT (1,2) 

«  0.0; 

cm, it 

«  0.5; 

CY(2,1) 

-  -1.0 

CY (2,2) 

>  0.0; 

CY ( 2 , 3  ) 

-  1.0; 
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CY  ( 3 , 1 )  :■  -0.5; 

CY<3,2)  0.0; 

CY ( 3 , 3 )  0.5; 

For  row  in  I_hold_array ’ ranga ( 1 )  loop 
For  col  in  I_hold_«rr»y ' rang# ( 2 )  loop 
1  hold_ar ray ( row, col ) . raal  :■  0.0; 
I-hold_ar ray ( row, col ) . iaag  :■  0.0; 
and  loop; 

•nd  loop; 


& 


For  Row  in  1 .. Iaaga_Ar ray ' last ( 1 ) -1  loop 
For  Col  in  1 . . Iaaga_Array ’ last ( 2 )-l  loop 
suaX  :■  0.0; 
auaY  :»  0.0; 

For  n  in  1 . . 3  loop 

For  ■  in  1 . . 3  loop 

suaX  :«  auaX  +  CX(B,n)  *  ( Iaaga_Array ( row+a-2 ,col+n-2 ) . raal- 
Inaga_Array ( row, col ) . raal ) ; 

and  loop; 
and  loop; 

For  n  in  1 . . 3  loop 

For  b  in  1 . . 3  loop 

auaY  : ■  subY  +  CY{B,n)  *  ( lBag»_Xr ray ( row+a-2 , col+n-2 ) . raal- 
Iaaga_Array ( row, col ) . raal ) ; 

and  loop; 
and  loop; 

If  suaX  >  subY  than 


I_hold_Array( row, col) .raal  :»  cuaX; 

alaa 

I  hold_Array ( row, col) .raal  :•  subY; 
and  Tf ; 

and  loop; 
and  loop; 

Iaaga  array  :■  I_hold_array ; 
and  Gradiant; 


—  •  PROCEDURE  SUB  CORK 

—  *  THIS  PROCEDURE  PERFORMS  THE  SUB  CORRELATION 

—  *  MULTIPLICATIONS  AMD  ADDITIONS  REQUIRED  FOR  EACH  OF 

—  •  THE  SHIFTS  IN  THE  GOO OMAN- SCHWARTZ  CORRELATION 


<• 


Procadura  Sub_corr  (Iaaga  :  in  Iaaga_Array_Typa; 

Taap  :  in  Iaaga_Array_Typa; 

Btap  :  in  out  Inaga_Array_Typa; 

Nua_Array  :  in  out  Taaga  Array_Typa; 

Nua  sactor  Array  :  in  ouF  Iaaga  Array  Typa; 


Row_l iaitl 

Row_liait2 

Col  Haiti 

Col_liait2 

S_row 

S  col 

Row 

Col 

Count 

Boat_row 

Bast  col 


in 

in 

in 

in 

in 

in 

in 

in 

in 

out 


Intagar ; 
Intagar; 
Intagar; 
Intagar; 
Intagar; 
Intagar; 
Intagar; 
Intagar; 
out  Intagar; 
Intagar ; 


out  Intagar; 


% 
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Liait 

:  in 

Float ; 

Threshold 

:  in 

Float; 

Max  val 

:  in 

out  Float 

Choice 

:  in 

Integer; 

Teap  ave 

:  in 

Float ; 

Teap  count 

:  in 

Integer ; 

Sub  liait 

:  in 

float ; 

sub  thresh 

:  in 

float)  is 

Target_sua, 

Diff, 

Su»  top, 

SUB_BottOB, 

Top , 

Bottoa  :  Float; 

Bogin  —  Sub_Corr 

Target_sua  :«  0.0; 

8 uoi _ top  :«  0.0; 

sua_bottoa  : ■  0.0; 

If  obs(Nua  Array) row, col  I . ro«l-Throihold )  <  Li»it  then 
If  choico  «  2  than 

—  Equalize  the  average  of  tha  target  pixels  to  that 


—  of  tha  teaplete  pixels 

F or  Vrow  in  Row_liaitl  ..  Row_liait2  loop 

Tor  Vcol  in  Col_liaitl  . .  Col_liait2  loop 

Target_sua  :«  Target_sua  +  Iaage ( vrow, vcol ). real  * 

Btap<  vrow-row+128  , vcol-col+128  )  . real ; 

End  loop; 

End  loop; 

Diff  ;»  Teap_ave  -  Target_sua  /  f loat (Te*p_count } ; 

Else 

Diff  0.0; 

End  if; 

For  Vrow  in  Row_lisiitl  .  .  Row_li«it2  loop 

For  Vcol  in  Col_li«itl  . .  Col_li«it2  loop 
top  :■  ( Iaage (Vrow, Vcol ). real  +  Diff)  * 

Taap( Vrow-row+128  ,  Vcol-col+128  ) . real ; 
bottoa  :»  (( Iaage (Vrow, Vcol ). real  +  Diff)  * 

Btap( Vrow-row+128 , Vcol -col +12 8 ) . real ) **2; 

Sua  top  :•  sua_top  +  top; 

Sub  bottoa  : «  sua_bottoa  +  bottoa; 

End  loop; 

End  loop; 

If  sua  bottoa  /■  0.0  then 

If  aCis  ( sua_top**2/sua_bottoa  -  sub  thresh)  <  sub_liait  then 

Nub  sector_array ( row, col ). real  T«  Nua  sector_array( row, col ). real  + 

i .  oT 

end  if; 

Itua_Ar ray  (  row,  col ).  real  :«  Hua_Array  (  row, col )  .  real  + 

sua_top  *•  2  /  sua_bottoa; 

end  i  f ; 

If  Rua_Array( row, col ). real  >  MaxJVal  then 
Max  val  :«  Rua_Array(row,col ) . real; 

Best_row  :•  row; 

■est_col  :•  col; 

End  If; 

Count  : »  count  +  1; 

else 

Nua  Array ( row, col ). real  :• 

End  If; 


0.0; 


Cnd  Sub  corr; 


► 


—  •  MAIN  PROCEDURE  OP  GOODMAN  SCHWARI  * 


Bagin  —  Good*an_schwart 

for  row  in  Imaga ' rang* ( 1  )  loop 
Por  col  in  Imaga ' rang* ( 2 )  loop 

Hum  Array ( row, col ). rail  :«  0.0; 
Num_Array ( row, col ) . iaag  :»  0.0, 
Nua_sactor_Ar ray ( row , col ] . raal  :■  0.0; 
Taap_hold{ row, col ) . raal  :■  0.0; 
Tamphold ( row , col ) . imag  0.0; 

End  loop; 

End  loop; 


c 


f 

L 


I 

► 


o 
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( 


( 


put ( "Iaaga  Pila  :  "  ) ; 

Gat  Pila ( Iaaga_Naaa , Last_Iaaga ,Max_Row_I»aga , Max_Col_Iaaga ) ; 
putJ’Tamplata  rila:  "); 

Gat  Pila (Taap  Naaa , Last_Taap , Max_Rowjramp , Ma*_Col_Taap ) ; 

Tol  is  usad  as  what  aaount  balow  thrashold  should  a  point  ba 
concidarad  accaptabla.  This  affacts  tha  furthar  procassing  rulas. 

Sub  tol  is  usad  for  aach  individual  aactor.  To  usa  thia  program 
to  chack  for  partially  occludad  targats,  tol  should  ba  sat  to  1.0 
and  sat  sub_tol  to  tha  tolaranca  valua  (ia.  0.8  aaans  that  20%  of 
tha  idaal  max  is  accaptabla). 

Put | "En tar  Sum  Tolaranca  :  ");  Gat (Tol ) ; skip_lina;  Naw_Lina; 

PutCEntar  Sactor  Tolaranca  :  " ) ;  Gat ( sub_Tol ) ; skip_lina ;  Naw_Lina(2); 
Put  Cl)  Gradiant  Oparation  "  ) ;  naw_lina; 

Put ("2)  Avaraga  Equalisation  " ) ; naw_l ina ( 2 ) ; 

Put ( "Entar  choica  ...."); gat ( choica ); skip_lina ; naw_lina ; 

Raad_Pi la ( Imaga_Nama , Last_Imaga , Imaga ) ; 

Raad_Pi 1 a ( Tamp_N*ma , La  s  t_Tamp , Tamp ) ; 

Smooth ( Tamp ) ; 

Smooth ( Imaga  )  ; 

If  choica  ■  1  than 

Gradiant ( tamp ) ; 

Gradiant ( imaga ) ; 

—  Elininata  a  two  pixal  boundary  around  tha  tamplata 

Por  row  in  tamp ' f i rst ( 1 )  ♦  2  ..  tamp’laat(l)  -  2  loop 
Por  col  in  tamp ’ first ( 2 )  +  2  ..  tamp’last(2)  -  2  loop 
if  tamp( row, col-2 ). raal  •  0.0  or 
tamp! row, col+2  ).  raal  «  0.0  or 
tamp( row-2 , col ). raal  «  0.0  or 
tamp ( row+2 , col ). raal  •  0.0  than 

tamp_hold( row, col ). raal  :■  0.0; 

alaa 

tamp  hold( row, col ). raal  :■  tamp ( row , col ). raal ; 

and  if; 
and  loop; 
and  loop; 
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taap  :•  taap_hold; 

End  If; 

—  Craata  a  binary  fora  of  tha  taaplata 

For  row  in  Caap ' ranga ( 1  )  loop 
For  col  in  taap ' rtnga I  2 )  loop 

if  t aap ( r ow , co 1 ) . raal  •  0.0  than 
bt ap ( row , col ) . raal  ;•  0.0; 
alsa 

btap ( row , col ). raal  :•  1.0; 


and  l f ; 
and  loop; 
and  loop; 

Find  dial Taap , Min_row_dia, Max_row_dia,Min_col_dia,Hax_col  dial; 
row  dia  :■  Max  row  dia  -  Min  row  dia  ♦  1; 
col  dia  :■  Max  col  dia  -  Min  col  dia  ♦  1 ; 


put(*Bagin  Corralat ion  “  )  ; 
naw  lina; 


S  row  ;•  Intagarirow  dia  /2): 

S  col  :■  Intagar ( col  dia  /l )  : 
Tn  row  :«  Intagarirow  dia/J  )  ; 
In  col  :«  Intagar  (col  dia/3  I  ; 


For  Quad  in  1  .9  loop 

Count  ;•  0;  Max_val  :■  0.0;  taap  aua  :•  0.0;  taap  count  :•  0; 

If  Quad  m  1  than 

liait  :•  100.0;  thraahold  :•  0.0;  »ub_thra»h  :•  0.0; 

—  Find  tha  avaraga  valua  of  tha  taaplata  pixals 

For  row!  in  128  -  S  row  .  .  128  -  S  row  *  Tn  row  loop 
For  coll  in  128  -  S  col  ♦  Tri_col  *  1  . . 

128  ♦  S_col  -  Tn_col  -  1  loop 
If  t aap ( rowl . col  1  I  . raa 1  /»  0.0  than 

Sub_thraah  aub  thraah  ♦  Taap ( rowl , col 1 ). raal  **  2 
Taap_aua  :•  Taap_aua  ♦  taap ( rowl , col 1 ). raal ; 

Taap  count  :■  Taap_count  ♦  1; 

End  i f ; 

End  loop; 

End  loop; 

Taap_ava  :«  Taap_aua  /  floatstaap  count); 

Sub_Tiait  ;»  Sub  thraah  •  aub_tol7 

alaif  quad  -  2  than 

Thraahold  :•  Thraahold  *  aub_thra«h; 
aub  thraah  :•  0.0; 

Put ( "  Thraahold  »  “); put ( thraahold , 2 , 2 , 0 ); naw_l ina ; 
liait  :»  Thraahold  •  Tol; 

—  Find  tha  avaraga  valua  of  tha  taaplata  pixala 
For  rowl  in  128  -  S_row  ♦  Tri  row  ♦  1 

128  ♦  S_row  -  Tri  row  -  1  loop 
For  coll  in  128  -  S_col  ♦  Tn  col  ♦  1 

128  ♦  S  col  -  Tri  col  -  1  loop 
If  taap!  rowl  ,coTl  ).  raal  /»  0 . 0  than 

Sub_thraah  :■  aub_thraah  ♦  Taap( rowl , col  1 ). raal  ••  2 
Toap_aua  : »  Taap  aua  *  taap I rowl , col 1 ). raal ; 

Taap  count  : •  Taap  count  ♦  1; 

End  if;- 


( 


End  loop; 

End  loop; 

Taap_ava  :«  Taap_sua  /  float ( taap_count ) ; 
Sub  Tiait  Sub  thrash  *  aub  tol; 


alaif  Quad  -  3  than 

Thraahold  :«  Thraahold  ♦  sub_thrash; 
aub  thrash  :»  0.0; 

Put("  Thraahold  ■  ") ;put ( thraahold , 2 , 2 , 0 ) ;naw_lina; 
liait  :■  Thraahold  *  Tol; 

—  Pind  tha  avaraga  valua  of  tha  taaplata  pixals 
Tor  rowl  in  128  +  s_row  -  Tri_row 
128  +  S_row  loop 

Tor  coll  in  128  -  S_col  +  Tri_col  +  1  .. 

128  +  S  col  -  Tri  col  -  1  loop 
If  taap( rowl .coTl ) . raal  /■  0.0  than 

Sub^thraah  :«  sub_thrash  +  Taap ( rowl , col 1 ). raal  **  2 
Taap_sua  : -  Taap_sua  +  taap( rowl , coll ). raal ; 

Taap_count  ;■  Taap_count  +  1; 

End  if; 

End  loop; 

End  loop; 

Taap_ava  :»  Taap_sua  /  float (taap  count); 

Sub_liait  :«  Sub  thrash  *  sub_tol; 

alaif  Quad  *  4  than 

Thraahold  : «  Thraahold  sub_thrash; 
sub_thraah  :■  0.0; 

Put("  Thraahold  «  put ( thraahold , 2 , 2 , 0 ); naw_lina ; 

limit  :«  Thraahold  *  Tol; 


—  Find  tha  avaraga  valua  of  tha  taaplata  pixals 
rot  rowl  in  128  -  S_row  +  Tri_row  +  1  . . 

128  +  S_row  -  Tri_row  -  1  loop 
For  coll  in  128  -  S_col 

128  -  S  col  *  Tri  col  loop 
If  taap ( rowl ,coFl ). raal  /■  0.0  than 

Sub_thrash  : -  sub_thraah  +  Taapl rowl , coll ). raal  **  2 
Taap_sua  :»  Taap_aua  *  taap ( rowl , coll ). raal ; 

Taap_count  : -  Taap_count  +  1; 

End  i f ; 

End  loop; 

End  loop; 

Taap  ava  :«  Taap  aua  /  float (taap  count); 

Sub_liait  :«  Sub_thrash  *  aub_tol; 

alaif  Quad  *  5  than 

Thraahold  : ■  Thraahold  t  aub_thrash; 
sub_thraah  :«  0.0; 

Put( "  Thraahold  »  ") ;put ( thraahold, 2 , 2 ,0 ) ;naw_lina ; 
liait  : «  Thraahold  *  Tol; 

—  Find  tha  avaraga  valua  of  tha  taaplata  pixals 
For  rowl  in  128  -  S_row  ♦  Tri_row  +  1  . . 

128  +  S_row  -  Tri_row  -  1  loop 
For  coll  in  128  ♦  S_col  -  Tri_col 
128  +  S  col  loop 

If  taap( rowl , coTl ). raal  /■  0.0  than 

Sub  thrash  : -  aub_threah  +  Taap< rowl , coll ). raal  **  2 


«r 
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Taap  sub  : ■  Tsap  sua  +  taap ( rowl , col 1 ) . raal ; 
Taap_count  :«  Taap_count  +  1; 

End  i f : 

End  loop; 

End  loop; 

Tsap  ava  :■  Tsap  sua  /  float (tsap  count); 

Sub_Tiait  :«  Sub_thrash  *  sub_tol; 

alsif  Quad  «  6  than 

Thrashold  :■  Thrashold  ♦  aub_thrash; 
sub_thrash  :«  0.0: 

Put<"  Thrashold-  ") ;put < thrashold, 2 , 2 , 0 ) ;naw_lina; 
liait  :■  Thrashold  *  Tol; 

—  rind  tha  avaraga  valua  of  tha  taaplata  pixals 
for  rowl  in  12*  +  S_row  -  Tri_row 

12*  +  S_row  loop 
Tor  coll  in  12*  -  S_col 

12*  -  S_col  +  Tri_col  loop 
If  taap ( rowl , col 1 ). raal  /-  0.0  than 

Sub  thrash  :-  sub_thrash  +  Taap ( rowl , col 1 ). raal  ** 
Taap_sua  :-  Taap_sua  ♦  taap ( rowl , col  1 ). raal ; 
Taap_count  ; -  Taap_count  ♦  1; 

End  i f ; 

End  loop; 

End  loop; 

Taap  ava  : -  Taap_sua  /  float ( taap_count ) ; 

Sub_liait  :«  Sub_thrash  *  sub_tol; 

alsif  Quad  •  7  than 

Thrashold  ; -  Thrashold  *  sub_thrash; 
sub_thrash  :•  0.0; 

Put?"  Thrashold-  •) ;put ( thrashold , 2 . 2 , 0 ) ;naw_lina ; 
liait  :«  Thrashold  *  Tol; 

—  rind  tha  avaraga  valua  of  tha  taaplata  pixals 
for  rowl  in  12*  +  S_row  -  Tri_row 

12*  +  S_row  loop 
rot  coll  in  12*  +  S_col  -  Tri_col 
12*  ♦  S  col  loop  ~ 

If  taap(  rowl  .coTl ).  raal  /•  0.0  than 

Sub_thrash  :•  sub_thrash  +  Taap( rowl , coll ). raal  ** 
Taap_sua  :-  Taap  sua  *  taap! rowl , coll ). raal ; 
Taap~count  : -  Taap_count  ♦  1 ; 

End  if; 

End  loop; 

End  loop; 

Taap  ava  :«  Taap_sua  /  float ( taap_count ) ; 

Sub_Tiait  :•  Sub_thrash  *  «ub_tol; 

alsif  Quad  -  S  than 

Thrashold  :-  Thrashold  +  sub_thtash; 
sub  thrash  :-  0.0; 

PutT"  Thrashold  -  ’); put ( thrashold , 2 , 2 , 0 ) ;naw_lina ; 
liait  : «  Thrashold  *  Tol; 

—  Pind  tha  avaraga  valua  of  tha  taaplata  pixals 


Por  rowl  in  12*  -  S_row  . . 

12*  -  S  Tow  +  Tri_row  loop 
Por  coll  In  12*  -  S_eol 

12*  -  S  col  +  Tri  col  loop 


( 


If  taap ( rovl , col  1 ) . raal  /■  0.0  than 

Sub_thrash  : «  sub_thrash  ♦  Taapt rowl ,coll ). raal  **  2; 
Taap_aua  : «  Taap_sua  +  taap( rowl , coll ) . raal ; 

Taap_count  : ■  Taap_count  +  1; 

End  if; 

End  loop; 

End  loop; 

Taap  ava  :•  Taap_sua  /  float (taap  count); 

Sub_liait  : -  Sub_thraah  *  aub_tol; 

alaif  Quad  •  9  than 

Thrashold  :•  Thraahold  +  sub  thrash; 
sub  thrash  :■  0.0; 

Putt  "  Thrashold  »  “); put ( thrashold , 2 , 2 , 0 ) ;naw_lina ; 
liait  : «  Thrashold  *  Tol; 

—  Find  tha  avaraga  valua  of  tha  taaplata  pixals 
For  rowl  in  128  -  S_row  . . 

128  -  S_row  +  Tri_row  loop 
For  coll  in  128  +  S  col  -  Tri  col  .. 

128  +  S_col  loop  ~ 

If  taapt rowl , coll ). raal  /»  0.0  than 

5ub_thrash  :»  sub_thrash  +  Taap ( rowl , col 1 ). raal  **  2; 
Taap_sua  : ■  Taap_sua  +  taap ( rowl , col 1 ). raal ; 

Taap_count  :■  Taap  count  ♦  1; 

End  i f ; 

End  loop; 

End  loop; 

Taap_ava  ;■  Taap_sua  /  float (taap _count ) ; 

Sub_liait  : •  Sub_thrash  *  sub_tol; 

and  if; 


a 


For  Row  in  Iaaga ■ f l rst ( 1 )  ♦  S_row  .. 
For  Col  in  Iaaga ' f i rat < 2  )  ♦  S_col 


Iaaga ' last ( 1 )  -  S_row  loop 
..  Iaaga 'last (2)  -  S_col  loop 


If  Quad  *  1  than 

Row_liaiti  :■  row  - 
Row_liait2  :■  Row_l 
Col_liaitl  :■  Col  - 
Col_liait2  :«  Col  + 

Elsif  Quad  •  2  than 


Row_ 

Haiti 

:■ 

Row 

- 

Row 

'liait2 

;■ 

Row 

♦ 

Col" 

'Haiti 

:  at 

Col 

- 

Col’ 

liait2 

:■ 

Col 

♦ 

Elsif  Quad  •  1  than 
Row_liaitl  : »  Row  + 
Row_liait2  :m  Row  + 
Col  Haiti  :■  Col  - 


S  row; 

■Ttl  +  Tri  row; 

S_col  +  TrT_col  +  1; 
S  col  -  Tri  col  -  1; 


S  row  ♦  Tri  row  ♦  1 
S  row  -  Tri  row  -  1 
S— col  ♦  Tri_col  ♦  1 
S  col  -  Tri  col  -  1 


S_row  -  Tri_row; 
S_row; 

S  col  +  Tri  col  +  1; 


Col 

_liait2 

- 

Col 

♦ 

S 

col 

- 

Tri_ 

_col 

- 

i 

Elsif  Quad  »  4 

than 

Row 

liaitl 

■ 

Row 

- 

S 

row 

♦ 

Tri 

row 

♦ 

i 

Row' 

~liait2 

■ 

Row 

♦ 

s" 

"row 

- 

Tri  row 

- 

i 

Col  Haiti 

• 

Col 

- 

s' 

"col , 

Col~liait2 

* 

Col 

“ 

S  col 

♦ 

Tri 

col 

Elsif  Quad  “  5 

than 

Row 

Haiti 

:■ 

Row 

- 

s 

row 

♦ 

Tri 

row 

♦ 

i 

Row 

~lialt2 

:■ 

Row 

♦ 

s' 

"row 

- 

Tri' 

"row 

- 

i 
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Col  Haiti  :«  Col  +  S_col  -  Tri  col; 
Col-liait2  :■  Col  +  S  col  ; 


Elsif  Quid  ■  6  than 

Row_l ini t 1  :■  Row  +  S_row  -  Tri_row; 
Row_liait2  : »  Row  +  S_tow; 

Col- liaitl  : “  Col  -  S_col; 

Col  liait2  :«  Col  -  S  col  +  Tri  col 


Elsif  Quad  •  7  than 

Row_limitl  :«  Row  +  S_row  -  Tri_row; 
Row_liait2  :»  Row  +  S_row; 

Col_liaitl  :«  Col  +  S_col  -  Tri^col; 
Col  liait2  :■  Col  +  S  col; 


Elsif  Quad  -  8  than 

Row_liaitl  :■  Row  -  S_row; 

Row  liait2  :»  Row  -  S_row  +  Tri_rov; 
Col  liaitl  :■  Col  -  S_col; 

Col- liait2  :■  Col  -  S  col  +  Tri  col; 


Elsif  Quad  *  9  than 

Row_liaitl  :«  Row  -  S_row; 

Row_liait2  :«  Row  -  S_row  +  Tri_row; 
Col_liaitl  :«  Col  +  S_col  -  Tri'col; 
Col- liait2  :«  Col  +  S  col; 


End  if; 


Sub  corr  ( Inaga ,Taap , Btnp , Nun_Ar ray ,Nun_sactor_ar ray , 
~  Row  liaitl, Row  liait2. 


Col_liaitl ,Col_liait2, 
s  row,s  col, Row, col. 

Count , Bast_rov,Bast_col , 
liait ,Thrashold,Max_val , 
Choica  ,Taap_ava  ,Tasip_count , 
Sub  liait, sub  thrashT; 


End  loop; 
End  loop; 


put ("Count  ■  " ) ; put (count, 4 ) ;naw_lina; 

Put ( Bast_row, 6 ) ; Put (Bast_col , 6 ) ;Put (Max_val ,10,2,0); 


End  loop; 


Thrashold  :»  Thrashold  +  Sub_thrash; 

Put  (  "  Thrashold  •>  ")  ;put  ( thrashold,  2 , 2 , 0 ) ;naw_lina; 


Sactor_loop: 

loop 

put ("Do  you  want  to  print  tha  sactor  salactions?  (y/n) 
gat (ana ) ;skip_lina;naw_lina; 

If  ans  »  ' Y '  or  ana  -  -y'  than 
count  : ■  0; 

putf’Entar  tha  nuafcar  of  sactors  to  thrashold  tha  print  salaction 
gat (nua_sactor ) ;skip_lina;naw_lina; 


for  row  in  nua_sactor_array ' rangal 1 )  loop 
for  col  in  nua_sactor_array ' ranga( 2 )  loop 

if  nua  aactor_array ( row, col ) , raal  >«  float (nua_sactor )  than 
count  :«  count  +  1; 
and  if; 
and  loop; 
and  loop; 


( 


put ( "Nu»b«r  of  points  in  this  selection  rsgion  is 
put ( count , 2 ) ; n«w_l in* ; 

put ("Do  you  want  to  print  th*s*  points?  (y/n 
got ( sns ) ; skip_lin* ; n*w_l in* ; 

If  ins  «  ' y '  or  ins  -  'y*  th*n 

for  row  in  nu»_s*ctor_*r r*y ' r»ng*( 1 )  loop 
for  col  in  nu»_s*ctor_*r ray ’ rang* ( 2 )  loop 

if  nus  s*ctor  array ( row, col ). real  >•  float (nu»_s*ctor )  than 
putTro“. 4 )Tput ( col ,  4 ) ; 

put ( Int*g*r (nu»_s*ctor^array ( row, col ) . r*al ) , 4  )  ;n*w_lin* ; 
•nd  if; 

•nd  loop; 

•nd  loop; 

•nd  if; 

•  Is* 

•xit  s*ctor_loop; 

•nd  if; 

•nd  loop  s«ctor_loop; 

Sav*_Fil«  ( Iaag«_Nasi*  ,  Last_I«ag»  ,Mu»_array ,  Extension  )  ; 

End  Goodaan  schwa rr; 


I 

I 


—  Program: 

—  Authors: 

—  Dats: 

—  Language: 

—  Systaa: 


DISPLAY 

Capt  William  Kobal  and  Capt  Tlaothy  Martin 
1  Octobar  1986 
Vax  Ada 
ISL  VAX/VMS 


—  Function:  This  program  displays  files  on  tha  Evans  t 

—  Southarland  PS  300  rastar  display  using  a  16  bit 

—  psuadocolor  or  greyscale. 


—  This  porgram  was  aodifiad  by  Lt  Troxal  to  includs  a  coapact  data 

—  procadura.  This  allows  for  a  such  fastar  display  tiaa.  Also,  tha 

—  display  program  can  now  bs  run  froa  any  tarainal. 


with  sequential_io; 
with  text_io; 
with  f loa?  text  io; 
with  f loat_aath_lib; 
with  integer_text_io; 
with  FORTRANHANDLER; 
with  FILE_HANDLER; 
with  IMAGE_HANDLER; 
with  DECLARATION  HANDLER; 


usa  taxt  io; 
usa  f loat_text_io ; 
usa  float_math  lib; 
usa  integer_text_io; 
usa  FORTRAN_HANDLER; 

usa  F I LE_HANDLER ;  —  A  Kobal  and  Martin  Package 

usa  IMAGE  HANDLER;  —  A  Kobal  and  Martin  Packaga 
usa  DECLAMATION  HANDLER; 


Procadura  DISPLAY 


procadura  Display 

In_Fila_Nasia 
Max_Row 
Max_Col 
Last 

Fila  Error 


is 

string  (1  ..  80) 
intagar ; 
integer ; 
natural ; 

:  axeaption; 


Procadura  PROCESS  FILE 


Praparas  fila  for  tha  Evans  a  Southarland  rastar  display. 

Inputs:  Max_Row  -  this  siust  aqual  tha  row  dimension  of 

tha  fila  to  ba  displayad. 

Max_Col  -  this  aust  aqual  tha  column  dimension  of 
tha  fila  to  ba  displayad. 

procadura  PROCESS_FILE  (Max_Row,  Max_Col  :  in  intagar)  is 

typa  Direct ion_Type  is  (Up,  Down,  Left,  Right); 

type  Arrow_Record_Type  is 
record 

Row_Pos  :  integer; 

Col_Pos  :  intagar; 


Direction  :  Direction_type; 
and  record; 

typa  Arrow_Array_Typa  is  array  (1  ..  5)  of  Arrov_Record_Type; 
typa  Video_Plag_Type  is  (Normal,  Ravarsad,  Enhanced,  Original); 


Col  Boarder 


:  intagar  : ■  40; 


Row_Boardar 

Max_Rowl 

Max_Coll 

Max_Row  Brd 

Max_Col~Brd 

Arrow_Array 

Pa_Array  Color 

Inaga_Array 

Rad_Iaaga_Array 

Grn_Iaaga_Array 

Blu  laaga  Array 


-  10; 

•  Max  Row 
-  Max~Col 
■  Max_Row 

•  Max  Col 


intagor 
Intagar 
intagar 
intagar 
intagor 
Arrow_Array  Typo; 
Pa_Ar  ray_Typa  (1  .. 
Iaaga_Ar7ay_Typa 
Diaplay  ArrIy_Typa 
Di  ap 1 ay~Ar  r ay_Typa 
Dioplay_Array_rypa 


-  1; 

-  1; 

a  Row_Boardar; 

♦  Col_Boardor; 

Max  Row  Brd  *  Max 


(0  . 

.  Max 

_Rowl 

, 

(1  . 

.  Max 

Row 

Brd, 

i 

(1  . 

.  Max 

Row  Brd, 

i 

(1  . 

.  Max 

"Row^Brd, 

i 

Col 

0 


Brd,  1  ..  4); 
Max_Coll); 
Max_Col_Brd) ; 
Max_Col_Brd) ; 
Max  Col  Brd); 


Max_Va luo 

Fila_Si«a 

Thraahold 

Color_Indax 

Rad 

Oraon 

Blua 

Arrow_Count 

Answor 

Color_Flag 

Arrow_Flag 

Vidao_rlag 

Intanaity_Error 

k  count 


float; 
intagar ; 
intagar ; 
intagar ; 
intagar ; 
intagar ; 
intagar ; 
intagor; 
charactar ; 
booloan; 
boolaan; 

Vidao  Flag  Typo; 
axcaption; 
intagar ; 


Procadura  ENHANCE  VIDEO 


E-  ancas  tha  lowar  valuaa  a  fila  to  ba  diaplayad  by 
computing  tha  log  baao  10  of  all  valuaa.  Thia  ia  an 
option  which  aay  bo  uaaful  for  filaa  that  hava  baan 

Fouriar  Tranaforaod. 

Inputa : 

Iaaga_Ar  ray  - 

array  which  containa  tha  un- 
anhancad  data  to  ba  diaplayad. 

Thraahold 

all  un-anhancad  valuaa  bolow 
thraahold  will  bo  aot  to  aaro 
in  tha  anhancad  array.  Thia 
valuo  can  bo  uaod  to  aaloct  how 
low  of  a  valua  to  onhanca. 

Outputa 

:  laaga  Array 

array  which  containa  tha  anhancad 
data  to  ba  diaplayad. 

procaduro  ENHANCE_VIDEO  (Iaago  Array  ;  in  out  laago  Array  Typo; 

ThroiKold  :  in  intagar)  Ta 


bogln 

for  Row  in  Iaaga_Array‘  rangad  ) 
loop 

for  Col  in  Iaago_Array * ranga ( 2 ) 
loop 

if  Iaaga_Array  (Row,  ColI.Raal  <  float  (Thraahold)  than 
Iaaga_Array  (Row,  ColI.Raal  :«  1.0; 
and  1 f ; 

laaga  Array  (Row,  ColI.Raal  : ■  loglO  (  Zaaga  Array  (Row,  ColI.Raal); 

ond  loopT 
and  loop; 
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•nd  ENHANCE  VIDEO; 


Brocodura  SET  COLORS 


—  Thii  is  a  color  lookup  tablo.  Thor*  ara  It  colors 
assignad;  on#  for  aach  of  16  poaaibla  lavals, 
ona  for  a  background  color,  and  whito  which  ia  uaad  in 
tha  acalas .  Tha  colors  ara  foraad  by  containing 
diffarart  aaounts  of  rod,  groan,  and  blua  pigaant . 


Inputs:  Color_Indax  -  an  intagar  froa  0  -  15  which 

ropraaanta  tha  laval  to  ba 
aaaignad  a  color. 

—  Outputs:  Rad 

an  intagar  froa  0  -  255  which 
ropraaanta  tha  intanaity  of  rad 
pigaant  uaad  in  tha  color  to  bo 
diaplayad . 

—  Oraan 

-  an  intagar  froa  0  -  255  which 

ropraaanta  tha  intanaity  of  groan 
pigaant  uaad  in  tha  color  to  ba 
diaplayad . 

Blua 

an  intagar  froa  0  -  255  which 
ropraaanta  tha  intanaity  of  blua 
pigaant  uaad  in  tha  color  to  ba 
diaplayad . 

procaduro  SET  COLORS 

(Color_Indax  :  in  intagar ; 

Rad,  Oraan,  Blua  :  out  intagar)  ia 

bog  in 

casa  Color 
whan  0 

_Ind«x 

■  > 

is 

Rod 

:  ■ 

0; 

Oraan 

;  m 

0; 

Blua 

■ 

110; 

whan  1 

-> 

Rad 

:  ■ 

0  ; 

Croon 

:  • 

0; 

Blua 

■ 

150; 

whan  2 

•  > 

Rad 

;  m 

0; 

Oraan 

:  ■ 

0; 

Blua 

m 

185; 

whan  3 

*> 

Rad 

:  ■ 

0; 

Groan 

:  m 

0; 

Blua 

m 

220; 

whan  4 

■  > 

Rad 

;  ■ 

0; 

Oraan 

:  ■ 

0; 

Blua 

m 

255; 

whan 

5 

•> 

Rad 

m 

0; 

Oraan 

;■ 

170;  Blua 

m 

0; 

whan 

6 

■  > 

Rod 

m 

0; 

Oraan 

!  ■ 

191 

Blua 

m 

63; 

whan 

7 

»> 

Rad 

m 

0; 

Oraan 

;  ■ 

225 

Blua 

m 

40; 

whan 

8 

■> 

Rad 

m 

0; 

Oraan 

;  m 

255 

Blua 

m 

30; 

whan 

9 

■  > 

Rad 

m 

255 

Oraan 

:  m 

242 

Blua 

m 

100; 

whan 

10 

»> 

Rod 

m 

255 

Oraan 

:  m 

220 

Blua 

m 

127; 

whan 

11 

■> 

Rad 

m 

255 

Oraan 

;  ■ 

191 

Blua 

u 

129; 

whan 

12 

»> 

Rad 

m 

255 

Oraan 

:  a 

161 

Blua 

m 

111; 

whan 

13 

■> 

Rad 

m 

255 

Oraan 

:  m 

130 

Blua 

• 

60; 

whan 

14 

■> 

Rad 

m 

230 

Oraan 

:  a 

0; 

Blua 

m 

0; 

whan 

15 

■  > 

Rod 

m 

170 

Oraan 

:  a 

0; 

Blua 

m 

0; 

whan 

99 

■  > 

Rod 

m 

0; 

Oraan 

:  a 

255 

Blua 

m 

255; 

whan 

whan 

casa 

999  -> 
othors 

Rod 

•  >  nu 

m 

Ll 

255 

Oraan 

:  a 

255 

Blua 

m 

255; 

and  SET  COLORS; 


Procedure  SET  GREYSCALE 


—  Thi •  is  s  Orsyscsls  lookup  table.  Thars  are  16  grey- 
acalss  sssigned;  ona  for  each  of  16  poasibla  lavala. 

—  Thara  is  also  a  background  color,  and  white  which  is 
uaad  in  the  scales.  The  grayscales  are  foraed  by 
combining  equal  aaounts  of  rad,  grean,  and  blue  pigment. 


Inputs:  Color_Index 


—  Outputs:  Red 


Green 


Blue 


an  integer  froa  0-15  which 
represents  the  level  to  be 
assigned  a  greyscale. 

an  integer  froa  0  -  255  which 
represents  the  intensity  of  red 
pigaent  used  in  the  greyscale  to 
b«  displayed. 

an  integer  froa  0  -  255  which 
represents  the  intensity  of  green 
pigaent  used  in  the  greyscale  to 
be  displayed. 

an  integer  froa  0  -  255  which 
represents  the  intensity  of  blue 
pigaent  used  in  the  greyscale  to 
be  displayed. 


procedure  SET_GREYSCALE  <Color_Index  :  in  integer; 

Red,  Green,  Blue  :  out  integer)  is 

begin 


Color 
when  0 

_Ind«x 

•  > 

is 

Red 

:  ■ 

90; 

Green  : » 

90; 

Blue  :- 

90; 

when  1 

■  > 

Red 

:■ 

100; 

Green  :» 

100; 

Blue  : - 

100; 

when  2 

■  > 

Red 

:  m 

110; 

Green  :« 

110; 

Blue  :■ 

110; 

when  3 

-> 

Red 

•  • 

120; 

Green  :« 

120; 

Blue  :• 

120; 

when 

4 

■  > 

Red 

m 

130 

Green  : - 

130 

Blue 

■ 

130 

when 

5 

«> 

Red 

m 

140 

Green  :■ 

140 

Blue 

as 

140 

when 

6 

•  > 

Red 

m 

150 

Green  :  - 

150 

Blue 

■ 

150 

when 

7 

«> 

Red 

m 

160 

Green  :■ 

160 

Blue 

■ 

160 

when 

8 

■  > 

Red 

m 

170 

Green  : • 

170 

Blue 

■ 

170 

when 

9 

■  > 

Red 

m 

ISO 

Green  :« 

ISO 

Blue 

m 

180 

when 

10 

•> 

Red 

m 

190 

Green  : • 

190 

Blue 

m 

190 

when 

11 

■  > 

Red 

u 

200 

Green  : ■ 

200 

Blue 

m 

200 

when 

12 

■> 

Red 

m 

210 

Green  : ■ 

210 

Blue 

m 

210 

when 

13 

■  > 

Red 

m 

220 

Green  : ■ 

220 

Blue 

m 

220 

when 

14 

■> 

Red 

m 

230 

Green  : « 

230 

Blue 

m 

230 

when 

15 

»> 

Red 

m 

240 

Green  :• 

240 

Blue 

m 

240 

when 

99 

■  > 

Red 

m 

0; 

Green  ;• 

255 

Blue 

m 

255 

when 

when 

999  -> 
others 

Red 

->  nu 

m 

ii 

255 

Green  :■ 

255 

Blue 

m 

255 

end  case; 

end  SET  GREYSCALE; 


Procedure  SET  BACKGROUND 


Sets  the  background  color.  The  color  that  the 
background  ia  set  to  is  deterained  by  the  color 
settings  for  entry  99  in  the  color  or  greyscales 


lookup  tablas .  Tha  antira  fila  1«  sat  to  tho  on* 
background  color;  any  data  auat  ba  aat  onto  tha 
background  aftar  thla  procadura. 


Inputs : 

Nona 

Outputs ; 

Rad  laaga  Array 

array  that  contains  tha 
aaount  of  rad  pigaant  naadad 
to  craata  tha  background 
color.  Tha  background  color 
ia  constant  so  all  valuas  in 
this  array  ara  aqual. 

Grn  laaga  Array 

array  that  contains  tha 
aaount  of  graan  pigaant  naadad 
to  craata  tha  background  color 
All  valuas  in  this  array  ara 
agual  . 

Blu  laaga  Array 

array  that  contains  tha 
aaount  of  blua  pigaant  naadad 
to  craata  tha  background  color 
All  valuas  in  this  array  ara 
agual . 

procadura  3ET_BACKGROUND  (Rad  laaga  Array  :  out  Diiplay  Array  Typo; 

Grn_Iaaga_Array  :  out  Display_Array_Typa ; 
Blu_I»aga_Array  :  out  Di aplay_Array_Typa )  is 

bag  in 


for  Row  in  1  . .  Max_Row_Brd 
loop 

for  Col  in  1  . .  Max  Col_Brd 
loop 

Color_Indax  :«  99; 


if  Color_rlag  -  falsa  than 

SET_GREYSCALE  ( Color_Indax ,  Rod,  Groan,  Blua); 

also 

SET_COLORS  ( Color_Indox ,  Rad,  Groan,  Blua); 
and  ifT 


Rad_Iaaga_Array  (Row,  Col! 
Grn_Iaaga_Array  (Row,  Col) 
Blu  Iaaga_Array  (Row,  Col) 
and  loop; 
and  loop; 


Rad; 

Groan; 

Blua; 


and  SET  BACKGROUND: 


a 


Procadura  SET  ARROWS 


Sots  arrows  on  tha  laaga  to  ba  displayad. 

Tho  position  of  tha  arrows  is  dotarainad  by 
tha  contants  of  Arrow_Array. 

Inputs;  Arrow_Array  -  array  that  contains  arrow  racords 

—  with  inforaation  on  whara  to  placa 

tha  arrows  and  in  which  diraction. 

—  Arrow  Count  -  tha  nuabor  of  arrows  to  ba  drawn. 
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Red  Image_Ar  ray  -  array  that  contains  tha  amount  of 
~  rad  pigment  for  tha  image  on  which 

tha  arrows  ara  to  bo  drawn. 

Grn_Image_Array  -  array  that  contains  tha  aaount  of 

groan  pigment  for  tha  image  on  which 
tha  arrows  ara  to  be  drawn. 

Blu  Iaage_Array  -  array  that  contains  tha  aaount  of 

blue  pigment  for  the  image  on  which 
tha  arrows  ara  to  be  drawn. 

Outputs:  Rad  Image  Array  -  array  that  contains  tha  amount  of 

~  rad  pigment  for  tha  image  which  now 

has  arrows  placad  on  it. 

Grn  Iaage_Array  -  array  that  contains  tha  aaount  of 

groan  pigment  for  tha  imago  which  now 
has  arrows  placad  on  it. 

Blu  Image_Array  -  array  that  contains  tha  aaount  of 

blue  pigment  for  tha  imago  which  now 
has  arrows  placad  on  it. 


procedure  SET_ARROWS  (Arrow_Array  :  in  Arrow_Array_Type; 

Arrow_Count  :  in  out  integer? 

Red_Xaage_Array  :  in  out  Display_Array_Type; 

Grn_Image_Array  :  in  out  Display_Array_Type; 

Blu_Image_Array  :  in  out  Display_Array_Type )  is 

Row,  col  :  integer; 

Delta_Row  :  integer; 

Delta~Col  :  integer; 

Col_Shift  :  integer  range  -1  ..  1; 

Row_Shift  :  integer  range  -1  ..  1; 

begin 

Red  : -  0 ; 

Green  :■  0; 

Blue  :»  0; 

While  Arrow_count  >  0 
loop 


if  Arrow_Array  <Arrow_Count t . Direction  ■  Up  then 
Delta_Row  :«  0; 

Delta_Col  : -  -3; 

Row  ;«  Arrow  Array  (Arrow_Count ) .Row_Pos  ♦  Row_Boarder; 

Col  :•  Arrow_Array  < Arrow~Count ) . Col_Pos  ♦  Col~Boarder  -  7; 
elsif  Arrow_Array  (Arrow_Count I . Direction  ■  Down  then 
Delta  Row  :•  0; 

Delta~Col  3; 

Row  :«  Arrow  Array  ( Arrow_Count ) .Row  Pos  +  Row_Boarder; 

Col  : •  Arrow  Array  (Arrow_Count ) .Col  Pos  +  Col_Boarder  +  7; 
elsif  Arrow_Array  (Arrow_Count ). Direction  »  Left  then 
Delta_Row  :»  3; 

Delta_Col  :■  0; 

Row  :»  Arrow  Array  (Arrow_Count ) .Row_Pos  +  Row_Boarder  +  7; 
Col  :■  Arrow^Array  ( Arrow~Count ) .Col_Pos  +  Col_Boarder; 
elsif  Arrow  Array  (Arrow_Count ) .Direction  ■  Right  then 
Delta  Row  : «  -3; 

Delta~Col  0; 

Row  :■  Arrow  Array  ( Arrow_Count ) .Row_Pos  ♦  Row_Boarder  -  7; 
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Col 
Row 
•nd  if; 


Arrow  Array  ( Ar row_Count ) . Col  Pos  +  Col  Boardar; 
Row  -3; 


for  Count  in  1 
loop 


fit 


for  Row  Shift  in  0  . . 
loop 

for  Col_Shift  in  0 
loop 


Rad_Iaaga  Array  (Row  ♦  Row  Shift  -  1, 
Col  +  Col~Shift  -  1) 
Grn_I«aga_Arr«y  (Row  +  Row  Shift  -  1, 
Col  ♦  Col_Shift  -  1) 
Blu_I»aga_Ar ray  (Row  ♦  Row  Shift  -  1, 


Rad; 
Graan ; 


Col  +  Col  Shift  -  1 ) 


Blua ; 


and  loop; 
and  loop; 


(Count  •  1)  and 

( Dal  ta 

ROW  m  0 ) 

than 

R*d_ 

Iaaga 

Array 

(Row, 

Col 

-  2  * 

Dalta_Col 

/ 

3) 

. 

Rad; 

Grn 

Iaaga 

Array 

(Row, 

Col 

-  2  • 

Dalta  Col 

/ 

3) 

m 

Graan ; 

Blu  Iaaga  Array 

(Row, 

Col 

-  2  * 

Dalta~Col 

/ 

3) 

m 

Blua; 

R*d 

Iaaga 

Array 

(Row  - 

2. 

Col  ) 

m  Rad; 

Grn  Iaaga  Array 

(Row  - 

2, 

Col ) 

■  Graan ; 

Blu 

Iaaga_Array 

(Row  - 

2, 

Col  > 

■  Blua; 

Rad 

Iaaga 

Arr«y 

(Row  + 

2, 

Col ) 

»  Rad; 

Grn 

Iaaga_Array 

(Row  + 

2, 

Col  I 

m  Graan; 

Blu 

Iaaga  Array 

(Row  ♦ 

2, 

Col ) 

•  Blua; 

Rad 

Iaaga 

Array 

(Row  ♦ 

2, 

Col  + 

Dalta  Col 

/ 

3) 

m 

Rad; 

Grn  Iaaga  Array 

(Row  ♦ 

2, 

Col  ♦ 

Dalta_Col 

/ 

3) 

m 

Graan; 

Blu  Iaaga  Array 

(Row  + 

2, 

Col  ♦ 

Dalta  Col 

/ 

3) 

m 

Blua; 

Rad 

ia«g* 

Array 

(Row  - 

2, 

Col  + 

Dalta  Col 

/ 

3) 

m 

Rad; 

Grn 

'iaaga' 

Array 

(Row  - 

2, 

Col  + 

Dalta  Col 

/ 

3) 

m 

Graan ; 

Blu  Iaaga  Array 

(Row  - 

2, 

Col  a 

Dalta~Col 

/ 

3) 

* 

Blua; 

Rad 

Iaaga 

Array 

(Row  + 

3, 

Col  * 

Dalta_Col 

/ 

3) 

. 

Rad; 

Grn 

iaaga  Array 

(Row  + 

3, 

Col  a 

Dalta  Col 

/ 

3) 

• 

Graan; 

Blu 

[laaga~Array 

(Row  ♦ 

3, 

Col  a 

Dalta~Col 

/ 

3) 

* 

Blua; 

Rad 

Iaaga 

Array 

(Row  - 

3, 

Col  a 

Dalta  Col 

/ 

3) 

m 

Rad; 

Grn 

'iaaga' 

"Array 

(Row  - 

3, 

Col  a 

Dalta  Col 

/ 

3) 

- 

Graan; 

Blu 

Iaaga_Array 

(Row  - 

3, 

Col  a 

Dalta_Col 

/ 

3) 

* 

Blua ; 

if 

(Count  * 

)  and 

(  Dal  ta 

_Col  -  0) 

than 

R«d 

Iaaga 

Array 

(Row  - 

2 

•  Dalta  Row  /  3, 

Col  ) 

* 

Rad ; 

Orn" 

"iaaga 

“Array 

(Row  - 

2 

•  Dalta_Row  /  3, 

Col  ) 

■ 

Graan; 

Blu  Iaaga  Array 

(Row  - 

2 

•  Dalta_Row  /  3, 

Col  ) 

* 

Blua; 

Rad 

Iaaga 

Array 

(Row, 

Col 

-  2) 

-  Rad; 

Orn" 

"iaaga 

“Array 

(Row, 

Col 

-  2  ) 

•  Graan; 

Blu 

Iaaga  Array 

(Row, 

Col 

-  2) 

•  Blua; 

Rad 

Iaaga 

Array 

(Row, 

Col 

a  2) 

-  Rad; 

Grn" 

"iaaga 

“Array 

(Row, 

Col 

a  2) 

m  Graan; 

Blu" 

Iaaga  Array 

(Row, 

Col 

a  2) 

■  Blua; 

Rad 

laaga 

Array 

(Row 

♦ 

Dalta 

Row 

/ 

3  , 

Col 

♦ 

2  ) 

m 

Rad ; 

Grn  laaga 

Array 

(Row 

♦ 

Dalta" 

"Row 

/ 

3  , 

Col 

♦ 

2) 

m 

Graan 

Blu'laaga 

_Array 

( Row 

♦ 

Dalta" 

"row 

/ 

3  , 

Col 

♦ 

2) 

m 

Blua  ; 

B#d 

laaga 

Array 

( Row 

♦ 

Dalta 

Row 

/ 

3  , 

Col 

- 

2  ) 

m 

Rad  ; 

Qrn 

laaga 

Array 

( Row 

♦ 

Dalta 

Row 

/ 

3, 

Col 

- 

2) 

m 

Graan 

Blu  laaga 

Array 

(Row 

+ 

Dalta' 

"Row 

/ 

3  , 

Col 

- 

2  ) 

m 

Blua  ; 

Rad 

laaga 

Array 

(Row 

♦ 

Dalta 

Row 

/ 

3  , 

Col 

♦ 

3  ) 

m 

Rad; 

Grn 

laaga 

Ar  ray 

(Row 

♦ 

Dalta" 

Row 

/ 

3  , 

Col 

♦ 

3) 

Graan 

Blu  laaga 

Rad  laaga 

Grn  laaga 

Blu  laaga 


Array  (Row 

Array  (Row 
Array  (Row 
Array  (Row 


+  Dalta  Row 

*  Dalta  Row 

♦  Dalta_Row 
+  Dalta  Row 


/  3,  Col  + 

/  3,  Col  - 
/  3.  Col  - 
/  3,  Col  - 


3)  :»  Blua; 

3)  Rad; 
3)  : «  Gratn 
3)  :m  Blua; 


Row  :«  Row  +  Dalta_Row; 
Col  :•  Col  ♦  Dalta_Col; 

and  loop; 


Arrow  Count  ;«  Arrow  Count  -  1: 


and  loop; 


and  SET  ARROWS; 


Procadura  SET  SCALES 


Craatas  tha  acalaa  along  tha  laft  and  bottoa  bordars. 
Each  grid  on  tha  acalaa  corraaponda  to  four  pixal 
valuaa  whara  a  pixal  corraaponda  to  a  aingla  valua 
in  tha  fila  baing  diaplayad.  Tha  grid  colora  altarnata 
batwaan  two  diffarant  colora  with  avary  aighth  grid  Bark 
diaplayad  aa  a  third  color.  Tha  colora  that  ara  uaad 
ara  datarainad  by  tha  aattinga  for  antriaa  5.  8,  and  999 
in  tha  color  and  grayacala  lookup  tablaa. 


Inputa:  Nona 

Outputa;  Rad_Iaaga_Array 


Orn_Iaaga_Array 


Blu_Iaaga  Array 


array  that  containa  tha 
aaount  of  rad  pigaant  naadad 
to  craata  tha  acalaa. 

array  that  containa  tha 
aaount  of  groan  pigaant  naadad 
to  craata  tha  scalas. 

array  that  contains  tha 
aaount  of  blua  pigaant  naadad 
to  craata  tha  acalas . 


procadura  SET  SCALES  (Rad  Iaaga_Array 
~  Grn  laaga  Array 

Blu-Iaaga-Array 


in  out  Di spl ay_Ar r ay_Typa ; 
in  out  Display_Array_Typa; 
in  out  Di aplay_Ar ray_Typa ) 


Row  l . 
Col  1  . 


Row  2. 
Col~2 


intagor ; 


* 
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b«g  in 


3 


for  Row  Index  in  0  (Max  Row  /  8)  -  1 


loop 

for  Col  in  (Col_Boarder  -9)  (Col_Boarder  -  4) 
loop 

for  Row_Incre«ent  in  (Row_Boarder  ♦  1)  (Rov_Boarder  +  4) 
loop 

Row_l  :«  (8  *  Row_Index)  +  Row_Incre»ent ; 

Row  2  :«  Row  1+4; 


Color  Index  :•  5; 


if  Color_rlag  «  false  then 

SET  GREYSCALE  ( Co  1 o r_I nde x ,  Red,  Green,  Blue); 

else 

SET  COLORS  ( Co lo r_Index ,  Red,  Green,  Blue); 
end  if; 


Red_I»age_Arrey  (Row_l,  Col) 
Grn  I«age_Array  (Row_l,  Col) 
Blu  leage  Arrey  (Row_l,  Col) 


a  Red; 

■  Green; 
•  Blue; 


if  (Row_Index  ♦  1)  res  4  /«  0  then 

Color  Index  ;•  8; 


if  Color_rieg  «  false  then 

SET_GREYSCALE  ( Co 1 0 r_Index ,  Red,  Green,  Blue); 

else 

SET_COLORS  ( Color_Index ,  Red,  Green,  Blue); 
end  if; 


Red_Isiage_Array  (Row_2.  Col)  :«  Red; 

Grn~I«age_Array  (Row_2,  Col)  :•  Green; 

Blu_I«ege_Ar rey  (Row_2,  Col)  :•  Blue: 

else 

Color  Index  :■  999: 


if  Color_flag  »  false  then 

SET_GREYSCALE  ( Col or_Index ,  Red,  Green,  Blue); 

else 

SET  COLORS  ( Color_Index ,  Red,  Green,  Blue); 
end  if; 


Red  I»age_Array  (Row  2,  Col) 
Grn~Is;sge_Array  (Row_2,  Col) 
Blu_I»age_Array  (Row_2,  Col) 
end  if; 
end  loop; 
end  loop; 
end  loop; 


■  Red ; 
a  Green; 

•  Blue; 


for  Col_Index  in  0  . .  (Max_Col  /  8)  -  1 
loop 

for  Row  in  (Row  Boarder  -  9)  (Row  Boarder  -  4) 
loop 

for  Col_Incre»ent  in  (Col_Boarder  +1)  (Col_Boarder  +  4) 
loop 

Col_l  :■  (8  •  Col_Index)  +  Col_Incre»ent : 

Col  2  :a  Col  1+4; 


Color  Index  :a  5; 


A.*" 


|1  .  **  P  ‘it’;  r  •*  *  .  ^ 


'J*  'V"  •  —ir  -  -it- 


if  Color_Flag  -  falsa  than 

SET_GREYSCALE  ( Colo r_Indax ,  Rad,  Graan,  Blua); 

alea 

SET_COLORS  ( Colo r_Indax ,  Rad,  Graan,  Blua); 
and  if; 

Rad_Iaaga_Array  (Row,  Col_l)  :■  Rad; 

Grn_Iaaga  Array  (Row,  Col  1)  :•  Graan; 

Blu  Iaaga_Array  (Row,  Col~l )  Blua; 

if  (Col_Indax  ♦  1)  raa  4  /«  0  than 

Color_Indax  :«  9; 

if  Color_Flag  «  falsa  than 

SET_GREYSCALE  ( Co 1 o r_Indax ,  Rad,  Graan,  Blua); 

alsa 

SET_COLORS  ( Colo r_Indax ,  Rad,  Graan,  Blua); 
and  i  f  ; 

Rad_laaga  Array  (Row,  Col  2)  :■  Rad; 

Grn_I«aga_Ar ray  (Row,  Col  2)  Graan; 
dlu  laaga_Array  (Row,  Col  2)  :•  Blua; 

alsa 

Color_Indax  :■  999; 

if  Color_flag  -  falsa  than 

SET_GREVSCA1,E  ( Co  1  o  r_I  ndax  ,  Rad,  Graan,  Blua)’ 

alsa 

SET_COLORS  ( Color_lndax ,  Rad,  Graan,  Blua); 
and  if; 

Rad_l«iaga_Array  (Row,  Col_2)  :■  Rad; 

Grn_I»aga_Array  (Row,  Col_2>  :»  Graan; 

Blu_Inaga_Array  (Row,  Col_2 )  :■  Blua; 

and  if; 
and  loop; 
and  loop; 
and  loop; 

and  SET  SCALES; 


Procadura  SET  SPECTRUM 


Craatas  tha  spactrua  chart  for  tha  bottoa  of  tha  display. 

Tha  16  colors  or  grayscalas  ara  displayad  in  ascanding 
ordar  along  tha  bottoa  bordar. 

—  Inputs;  Nona 

Outputs:  Rad_Iaaga_Arr ay  -  array  that  contains  tha 

aaount  of  rad  pigaant  naadad 
to  craata  tha  scactrua. 

Grn_Iaaga_Array  -  array  that  contains  tha 

—  aaount  of  graan  pigaant  naadad 

to  craata  tha  spactrua. 


Blu_Iaaga_Array  -  array  that  contains  tha 

aaount  of  blua  pigaant  naadad 
to  craata  tha  spactrua. 


B-4* 


procadura  SET_SPECTRUM  (Rad_Imaga  Array  :  in  out  Display_Array  Typa; 

Grn_Imaga_Array  :  in  out  Display  Array_Typa; 
Blu_Imaga_Array  :  in  out  Display~Array_Typa )  ia 

Count  :  intagar; 

Spactrua_Sisa  :  intagar; 

bagin 

Spactrua_Siaa  :■  Truncata  (float  (Max_Row)  /  float  (16)); 

Color_Indax  :■  0; 

Count  :»  0; 

for  Row  in  Row_Boardar  +  1  . .  Spactrua_Siaa  *  16  +  Row  Boardar 
loop 

Count  :■  Count  +  1; 
for  Col  in  1  .  .  15 
loop 


if  Color_Flag  «  falsa  than 

SETJ3REYSCALE  ( Color_Indax ,  Rad,  Graan,  Blua); 

alsa 

SET_COLORS  ( Color_Indax ,  Rad,  Graan,  Blua); 
and  ifj 


Rad_I»aga_Array  (Row,  Col) 
Grn_I»aga_Array  (Row,  Col) 
Blu_Ia«aga_Array  (Row,  Col) 
and  loop; 

if  Count  ■  Spact rua_Siza  than 
Color_Indax  :■  Color_lndax 
Count~:«  0; 
and  if; 
and  loop; 


:«  Rad; 

: ■  Graan; 
; «  Blua; 


+  1; 


and  SET  SPECTRUM; 


Procadura  SET  IMAGE 


Sats  tha  Iaaga  into  tha  thraa 
Inputs;  Iaaga_Array 

Outputs:  Rad_Iaiaga_Array 

Grn_I»aga_Array  - 


color  display  arrays. 

contains  tha  data  of  tha 
fila  to  ba  displayad. 

array  that  contains  tha 
amount  of  rad  pigmant  naadad 
to  craata  tha  iaiaga. 

array  that  contains  tha 
amount  of  graan  pigmant  naadad 


to  craata  tha  iaaga. 

Blu_Iaaga_Array  -  array  that  contains  tha 

amount  of  blua  pigmant  naadad 
to  craata  tha  iaaga. 


procadura  SET_IMAGE  (Iaaga  Array 

Rad_Iaaga_Array 
Grn_Imaga_Array 
Blu_Iaaga_Ar ray 


in  Iaaga  Array_Typa: 
in  out  DTsplay_Array_Typa; 
in  out  Display~Array”Typa; 
in  out  Display~Array~Typa)  ia 
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begirt 


if  Max_Rowl  «  Hax_Coll  then 

for  Row  in  reverse  0  . .  Max  Rowl 
loop 

for  Col  in  0  . .  Max_Coll 
loop 

Color_Index  :■  ebs  (integer  (Iaage_Array  (Hex  Coll  -  Col, 

Max_Rowl  -  Row). Real) ); 

if  Color  Flag  •  false  then 

SET_GREYSCALE  ( Colo r_Index  ,  Red,  Green,  Blue); 

else 

SET_COLORS  ( Color_Index ,  Red,  Green,  Blue); 
end  if; 


Red  Iaage_Array  (Max  Row_Brd  -  Row,  Col  ♦  Col  Boarder  ♦  1) 

Red; 

Grn_Iaage_Array  (Max_Row_Brd  -  Row,  Col  ♦  Col  Boarder  ♦  1) 

:•  Green; 

Blu  Iaage_Array  (Max  Row_Brd  -  Row,  Col  +  Col  Boarder  +  1) 

;•  Blue; 

end  loop; 
end  loop; 

else 

for  Row  in  0  . .  Max_Rowl 
loop 

for  Col  in  0  . .  Max_Coll 
loop 

Color  Index  :«  abs  (integar  (Iaage  Array  (Row,  Col ). Real)); 


if  Color  Flag  «  false  then 

SET_GREYSCALE  ( Co 1 o r_I ndex ,  Red,  Green,  Blue); 

else 

SET_COLORS  (Color_Index,  Red,  Green,  Blue); 
end  i f ; 


Red_I«age_Array  (Row  +  Row_Boarder  ♦  1,  Col  +  Col_Boarder  ♦  1) 

:•  Red; 

Grn_Iisage_Array  (Row  ♦  Row^Boarder  ♦  1,  Col  +  Col_Boarder  1) 

: «  Green 

Blu  I«age_Array  (Row  ♦  Row_Boarder  +  1,  Col  +  Col_Boarder  ♦  1) 

:»  Blue; 

end  loop; 
end  loop; 
end  if; 


end  SET  IMAGE; 


Coapact  Data 


--  This  procedure  put  the  iaage  into  a  run  length  encoded  format 
--  that  allows  the  Evans  and  Sutherland  to  display  auch  faster 


procedure  Coapact_Date  (Mua_of_Cols 

Nub  of~Rows 

K_Count 

Red 

Blue 

Green 


in  out  integer; 
in  out  integer; 
out  integer; 
in  Display  Array_Type; 
in  Display_Array_Type; 
in  Display  Array  Type; 


PS  Array  Color  ;  out  PS  Array  Type)  is 


;  integer  :•  red' f i rat ( 1 ) ; 
;  integer  ; -  red' f i rat ( 2 ) ; 


next_x 
next  y 
count 


k 

nua  pixels 


integer 

integer 

integer 

integer 

constant 


:■  red'first(l)  +  1; 

:«  red’ first ( 2  ) ; 

1; 

:  *  1 ; 

integer  :•  ( ( red ’ las t ( 1 ) -red ' f i r s t ( 1 ) ) +1 ) 
*( (red'last(2)-red'first(2) )+l ) 


begin  —  CoBpact_Data 


For  n  in  l..nua  pixels-1  loop 

If  ( red( x ,y ) “red( next_x ,next_y ) )  and 
<blue(x,y)»blue(next_x, next_y >  )  and 
( green ( x ,y l-green ( next  x,next_y))  then 

count  :•  count  +  1; 

else 

PS_Array_Color ( k , 1 1  count; 
PS_Array_Color  (  k  ,  2 )  :«  red(x,y); 
PS_Array_Color(k,3)  :«  green(x.y); 
PS_Array_Color ( k , 4 )  :■  bluelx.y); 

k  :»  k+1 ; 
count  1; 
end  i f ; 

x  :  -  x  +  1  ; 

next_x  : -  next_x  +  1 ; 

If  x  >  red’last(l)  then 

y  y+1 : 

x  :=  red' f i rst ( 1 ) ; 
next_x  :«  x+1; 
next_y  ;«  y; 

elsif  x  >  red'last(l)  then 
next_x  ;■  red ' f i rst ( 1 ) ; 
next_y  :«  y+1; 
end  if;~ 
end  loop; 

PS_Array_Color ( k , 1 )  :»  count; 


PS_Ar ray_Color ( k , 2 )  :«  red(x,y); 
PS_Array_Color(k,3)  :«  green(x.y); 
PS_Array_Color(k,4)  :■  blue(x,y); 

K_Count  :«  k; 
end  CoBpact_Data; 


Main  procedure  for  PROCESS_FII.E 


begin  —  PROCESS_PILE 

new_line; 

Options ; 
loop 

new_line; 

put_line  ( "  G  — >  Greyscale"); 
new_line; 

put  line  ("  P  — >  Psuedocolor" ) ; 
nev_line; 

put-("  Select  display  option  »>  "); 
get  (Answer); 
skip_line ; 


■  W  "  V  W  —  W W-"H —»  "■*  ” T 


case  Answer  is 

when  'G'  |  'g'  «> 

Color_Flag  :•  raise; 
exit  Options; 
when  'P'  |  'p'  «> 

Color_flag  :■  True; 
exit  Options; 
when  others  •> 

new_line  (3); 
put_line  ("Incorrect 
new_line: 
end  case; 
end  loop  Options; 


"W  **■«  ^1  "  1*  'W  - V  •»  V 


response!  Try  again. 


l1  ■  U  w  U  ■  'J  ■  L1  »  L  W  'J  W  ''  1  I  »W  11 II 1TW1  "V  ■  ■w  I  "rfe 


)  ; 


Video : 
loop 

new_line  (3); 

put_line  ("  N  — >  Noraal  Video"); 
new_line; 

put_line  ("  R  — >  Reverse  Video"); 
new_line; 

put_line  ("  E  — >  Enhanced  Video"); 
new_line; 

put  line  ("  O  — >  Original  Video"); 
new_line ; 

put  ("  Select  video  output  ■>  "); 
get  (Answer); 
skip  line; 


case  Answer  is 

when  'N'  |  'n'  «> 

Video_rlag  ;«  Noraal; 
exit  Video; 
when  'R'  |  ’ r'  ■> 


Video_rleg  :»  Reversed; 
exit  Video; 
when  'E'  |  'e'  -> 

video  rlag  : «  Enhanced; 
nev_lTne  (  3  ) ; 

put  ("  Set  Threshold  ■>  "); 
get  (Threshold); 
skip_line; 
new_line; 
exit  Video; 
when  'O'  |  'o’  •> 

Video  rlag  : ■  Original; 
exit  Video; 
when  others  «> 
new_line  (3); 

put  ("You  did  not  repond  with  a  correct  entry."); 

put  line  ("  Try  again."); 

new_line; 

end  case; 

end  loop  Video; 

Arrows : 
loop 

new  line(3); 

put_line  ("  A  — >  Add  Arrows  to  Dislay"); 
new_llne; 

put  line  ("  B  — >  No  Arrows"); 
new~line; 

put  ("  Select  Arrow  option  ■  >  "); 

get  (Answer); 

skip_line; 
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5)  ->  "); 


€ 


< 

* 


cut  Answer  is 

when  'A'  |  's’  ■> 

Arrow  Flag  :»  true; 
nsw_lTns (  3 ) ; 

put  ( "  Enter  the  nuaber  of  arrows  to  be  drawn  (1  - 
get  (Arrow_Count | ; 

if  (Arrow  Count  <  1)  or 
nev_line (  3  )  ; 
put  (  " 

Wa  i  t  ; 

Arrow  Flag  : •  false; 
exit  Arrows; 
end  if; 

for  Count  in  1  . .  Arrow  Count 
loop 

skip_Line;  new_line(3); 

put  ("Arrow  put < Count , 3  ) ;  new  line(2); 

put  ("  Row  position  it  should  point  to  ■>  "); 
get  (Arrow_Array (Count ) .Row  Post; 
new_line(2);  skip_line: 

put  ("  Col  position  it  should  point  to  ■>  "); 
get  (Arrow_Array (Count ) .Col  Pos); 
new_line<2);  skip_line; 
put  ("  U  ->  Up  D  ->  Down  L  ->  Left  R  ->  Right’); 
new  line(2); 


(Arrow^Count  >  5)  then 
Bad  Input  — ’  )  ; 


€> 


! 

L 


; 

* 


» 

> 


( 


put  (’  Direction  it  should  point  «>  "); 
get  (Answer); 

case  Answer  is 


when  'U'  |  'u' 

■> 

Arrov_Array ( Count ) . Di rection 

:  * 

up: 

when  'D'  |  'd' 

■> 

Arrow_Array ( Count ) . Di rection 

:■ 

Down; 

when  'L'  |  '1' 

■  > 

Ar row_Ar ray ( Count ) .Direction 

:* 

Left; 

when  'R'  |  'r' 

•  > 

Arrow_Ar ray (Count ) .Direction 

:■ 

Right 

when  others 

«> 

Arrow_Flsg  :■*  false; 

end  case; 
end  loop; 

skip_line ; 
exit  Arrows; 
when  'B'  |  'b'  ■> 

Arrow_Plag  :•  false; 
exit  Arrows; 
when  others  « > 

new_line  (31; 

put_line  ("Incorrect  response!  Try  again."); 
new_line; 
end  case; 
end  loop  Arrows; 

new_line  (4); 

put  ("  DISPLAYING  <  " ) ; 

put  ( In_rile_Na»e  (1  ..  Last)); 
put_line  ("  >"); 
new_line  (2); 

READ  riLE  IIn_File  Haas,  Last,  Iaage_Ar ray ) ; 

Tine  ; 

case  Video  Flag  is 
when  Noraal  »> 

FIWD_INTENSITY  ( Iaage_Array ) ; 
when  Reversed  ■> 

FIND_REVERSE_INTENSITY  ( Iaage_Array ) ; 
when  Enhanced  «> 

ENHANCE_VIDEO  ( laageAr ray ,  Threshold); 
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PIND  INTENSITY  ( Iaaga_Ar r»y ) ; 
whan  Original  •> 

—  This  option  allows  tha  display  of  an  uprocassad  vidao 

—  fila  that  is  alraady  raprasantad  in  intansity  lavals 

—  batwaan  0  and  IS. 

for  Row  in  Iaaga_Ar  ray  '  ranga  ( 1 ) 
loop 

for  Col  in  laaga_Ar ray ' rangaf 2 ) 
loop 

if  Max_Valua  <  Iaaga_ Array  (Row,  Coll.Raal  than 
Max_Valua  :■  Iaags_Array  (Row,  Coll.Raal; 
and  if; 
and  loop; 
and  loop; 

if  Max_Valua  >  1S.0  or  Max_Valua  <  0.0  than 
raisa  Intana i ty_Er ro r ; 
and  if; 


whan  othars  ■> 
naw_l ina  ( 3 ) ; 

put  (’You  did  not  rapond  with  a  corract  antry.’l; 
put_lina  (’  Try  again.*); 
naw_lina ; 

and  casa; 

SETBACKGROUND  ( Rad_Iaaga_Ar ray  ,  Grnlaaga  Array,  Blu_Iaaga_Ar ray )  ; 
SETSCALES  ( RadlaagaAr ray ,  Grn_Iaaga_Ar ray ,  Blu  IsagaArray ) ; 
setspectruh  (  Rad_Iaaga_Ar  ray  ,  Grn_Iaaga_Array ,  Blu_Iaaga_Array); 

SETIMAGE  ( Iaaga_Ar ray ,~Rad_Iaaga_Ar  ray ,~Grn_Iaaga_Ar ray , 

Blu_Iaaga_Array ) ; 

if  Arrow  flag  «  Trua  than 

SETARROWS  ( Ar row_Ar ray ,  Arrow_Count,  Rad  laaga  Array, 

Grn_Iaaga_Array ,  81 ulaagaAr ray 1 ; 

and  if; 

Coapact_Data  ( Max_Col_Brd ,  Max_Row_Brd,  K  Count,  Rad_Iaaga_Ar ray , 

Blu  Iaaga_Array,  Grn_Iaaga  Array,  PS  Array_Color  I  ; 
PSRASTERCOLORl  TwaxColBtd ,  MaxRowBld,  KCount,  PsArrayColor ) ; 

axcapt ion 

whan  Intansity  Error  ■> 
naw_l ina  ( 2 1 ; 

putlina  (’Your  data  valuaa  axcaad  tha  aaxiaua  allowabla  intansity’); 
put  lina  < ’lavals.  Your  fila  Bust  ba  noraalisad  with  raspact  to’); 
put_lina  ("accaptabla  (0  -  15)  intansity  lavals.*); 

and  PROCESS  PILE; 


Main  procadura  for  DISPLAY 


bagin  —  DISPLAY 
naw_l  ina  (20; 

putlina  (’fila  To  Ba  Displayad  On  Tha  Evans  i  Southarland:  "I; 
naw_llna; 

GET  PILE  (In  Pi la  Naas ,  Last,  Max  Row,  Max  Col); 
if  Last  •  1  and  (In  Pila  Naas  ( 1 )“-  ■ 0 '  or 


I 


V*  -V-  ■  .  r'V'VT  '  U"  ~T 


’V  U"»v*ir  w 


p  «  *  »  .  *  v  « 


c 


In_File_Na»e  (1)  «  'q')  then 

new_line  (3); 

put  lin«  ("  ***  Leaving  Display  —  Good  Bya  1  * 

alaa 

PROCESS_FILE  (Kax_Row,  Max_Col); 

and  if; 

except  ion 

when  File  Error  ■> 
new  line  (12). 


put  line  ( "  Your  file  site  was  not  1256  x  256)  or  [512  x 
new  line  (12); 


when  Nate  Error  •> 
new  1 ine  (12); 
put  line  (  " 
new  line  (12); 


****  File  not  in  Directory 


end  DISPLAY; 


128 ) . " ) ; 


)  ; 
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packaga  rORTRAN_HANDLER  i« 

This  packaga  sarvas  aa  tha  ada-fortran  intarfaca  for  tha 
Evans  and  Sutharland  PS340  raatar  display  fortran 
procaduraa  uaad  to  display  imaga  arrays. 


typa  Pa  Array_Typa  is  array  (intagar  ranga  <>, 

intagar  ranga  <>)  of  intagar; 

typa  Display_Ar ray_Typa  is  array  (intagar  ranga  <>, 

intagar  ranga  <>)  of  intagar; 


procadura  PS_RASTER_COLORl 


( Rows 
Cols 
K_Count 
Ps_Ar  ray 


in  intagar; 
in  intagar; 
in  intagar ; 
in  out  Ps_Array  Typa) 


pragma  intarfaca  (fortran,  PS  RASTER  COLOR1 ) ; 

pragma  import_procadura  (PS  RASTER_COLORl ,  machanism  « >  rafaranca) ; 


and  fORTRAN  HANDLER; 


- t#  v  w •  *  t"  v  ^ 


C 

C#*****#**********************************************************************1 

c 

c - - — - - - - - ~ 

- - - - - - - 

subroutina  PS_Rastar_Colorl (Nua_of_Rows ,Nua_of_Cols ,K_count ,Out_Pictr ) 

implicit  intagar‘4  (X,Y) 

intsgsr *4  Back_Gnd( 3 ) , Color_Tbl (4,256), 

+  Out  Pictr(4,k  count) 


c  (1)  Position  tha  input  iaags  on  ths  csntsr  of  tha  scrssn 
c 

Xain-  (640  -  Nua_of_Cols )/2 
Xaax«  xain  ♦  Ilua_of_Cols  -  1 
tain-  ( 480  -  Nua_of_Rows )/2 
Yaax«  Yain  +  Nua  of  Rows  -  1 


c  [2)  Sat  up  tha  RS-232  link 
c 

call  Pattchl • logda vnaa»XPS3 40/phydavtyp«ETHERNET * , ERRHND ) 

c 

c 

c  13)  Sat  up  tha  WRLUT  (writa  color  look-up  tabla) 

c 

c  I  3. a]  Sat  up  look  up  tabla  ranga 

c 

Intns_ain«  0 
Intns_aax-  255 

call  PRASLR ( Intns  ain.Intns  aax , ERRHND ) 


100 


13. bl  Sat  up  tha  dafault  if  usar  doas  not  want  to  sat  up  his  own  tabla 

LavalVal  — 1 

Laval__Inc«1024/256 

Nua_o'f_Lavals«256 

do  TOO  J«1  ,Nua_of_Lavals  ,  1 

Laval_Val»LavaT  Val+Laval  Inc 
Color_Tbl(l,J)«I 
Color_Tbl(2,J)«Laval_Val 
ColorTbl ( 3 , J )»Laval_Val 
Color_Tbl(4,J)«Laval_Val 
continua 


1  Rad  Color  Tabla 
1  Grssn  Color  Tabla 
!  Blua  Color  Tabla 


IndaxaO 

call  PRASLUlNua  of  Lavals , Indax , Color  Tbl, ERRHND) 


c  14)  sat  background  color  to  light-blua 

c 

Back_0nd( 1 1*0 

Back_Gnd( 2 )«255 

Back_Gnd( 3 )»255 

call  PRA5ER ( Back  Ond, ERRHND) 


(51  sat  tha  lowar-laft  cornar  of  tha  iaaga 


call  PRA5LD( Xain , Yain , Xaax , Yaax , ERRHND ) 


c  (61  display  ths  iaaga 

c 

call  PRABW (  k_count , Out_Pi ct r  , ERRHND ) 
c 
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